home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / mapl0301.zip / M-PC0301.MRG < prev    next >
Text File  |  1993-03-01  |  114KB  |  3,267 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against E:\RBBS\STOCK\RBBS-PC.BAS to produce E:\RBBS\CHAT\RBBS-PC.BAS
  3. * E:\RBBS\STOCK\RBBS-PC.BAS:  Date 6-20-1992  Size 147219 bytes
  4. * ------------[ Created 03-01-1993 19:13:51 ]------------
  5. * REPLACING old line(s) by new
  6. 29 ' **************************************************************************
  7.    '
  8.    ' $INCLUDE: 'RBBS-VAR.BAS'
  9.    '
  10.    ' $SUBTITLE: 'Main-line RBBS-PC Program'
  11.     ZCrLf$ = CHR$(13) + CHR$(10)
  12.     WasJ = 60
  13.     DIM ZOptSec(WasJ)
  14.     ZConfigFileName$ = "RBBS-PC.DEF"
  15. * ------[ first line different ]------
  16.    CALL GetCommand (ZDebug,ZNetTime$,ZNetBaud$,ZCBaud$,ZNetReliable$) 'Pe 01/01/93
  17.     ZSubParm = -62
  18.     ZBulletinMenu$ = ""
  19.     CALL ReadDef (ZConfigFileName$)
  20.     IF ZErrCode > 0 THEN _
  21.        GOTO 31
  22.     GOTO 100
  23. * REPLACING old line(s) by new
  24. 100 CLEAR,,ZSizeOfStack
  25. * ------[ first line different ]------
  26.     ZCanANSIChat = ZFalse                                            ' DD071301/ANSICHAT
  27.     CALL VarInit
  28.     IF ZErrCode > 0 THEN _
  29.        GOTO 31
  30.     OrigUpgradeSec = ZAutoUpgradeSec
  31.     OrigMainSec = ZMinLogonSec
  32.     CALL BreakFileName (ZOrigMsgFile$,Drive$,OrigMsgName$,ZWasY$,ZFalse)
  33.     IF OrigMsgName$ = "MESSAGES" THEN _
  34.        OrigMsgName$ = "MAIN" _
  35.     ELSE IF RIGHT$(OrigMsgName$,1) = "M" THEN _
  36.             OrigMsgName$ = LEFT$(OrigMsgName$,LEN(OrigMsgName$)-1)
  37.     ConfFileName$ = OrigMsgName$
  38.     OrigNewsFileName$ = ZWelcomeFileDrvPath$ + _
  39.               OrigMsgName$ + ".NWS"
  40.     ZNewsFileName$ = OrigNewsFileName$
  41.     IF ZNetMail$ <> "NONE" AND VAL(ZNetTime$) > 0 THEN _
  42.        ZLimitMinsPerSession = VAL(ZNetTime$)
  43.     IF ZNetMail$ <> "NONE" AND VAL(ZNetBaud$) > 0 THEN _
  44.        ZExpectActiveModem = ZTrue : _
  45.         IF NOT ZKeepInitBaud THEN _
  46.           ZModemInitBaud$ = ZNetBaud$
  47.         IF ZFossil THEN _
  48.        ZComPort = VAL(RIGHT$(ZComPort$,1)) - 1 : _
  49.        IF ZComPort < 0 THEN _
  50.           GOTO 108 _
  51.        ELSE CALL FOSinit(ZComPort,Result) : _
  52.             IF Result = -1 THEN _
  53.                ZSnoop = ZTrue : _
  54.                CALL PScrn("ERROR INITIALIZING FOSSIL") : _
  55.                GOTO 204
  56. * REPLACING old line(s) by new
  57. * ------[ first line different ]------
  58. 108 Call Line108           'Pe 07/25/92
  59.  
  60. '
  61. ' *****  TEST FOR MESSAGE FILE PRESENT (Abort IF NOT PRESENT)  ****
  62. '
  63. * DELETING old line(s)
  64. 112
  65. * REPLACING old line(s) by new
  66. 150 IF ZSubBoard THEN _
  67.        GOSUB 12987 : _
  68.        GOSUB 5135 : _
  69.        GOTO 170
  70.     ZSysopAvail = VAL(MID$(ZMsgRec$,32,2))
  71.     ZSysopAnnoy = VAL(MID$(ZMsgRec$,34,2))
  72.     ZSysopNext = VAL(MID$(ZMsgRec$,36,2))
  73.     MID$(ZMsgRec$,36,2) = STR$(ZFalse)
  74.     ZPrinter = VAL(MID$(ZMsgRec$,38,2))
  75.     IF ZTurnPrinterOff THEN _
  76.        ZPrinter = ZFalse
  77.     ZExitToDoors = (MID$(ZMsgRec$,40,2) = "-1" AND ZNetBaud$ = "" _
  78.                     AND INSTR(COMMAND$," LOCAL") = 0)
  79.     ZEightBit = VAL(MID$(ZMsgRec$,42,2))
  80. * ------[ first line different ]------
  81.     ZBPS = -VAL(MID$(ZMsgRec$,44,2))                                 ' KG032604
  82.     ZSnoop = VAL(MID$(ZMsgRec$,58,2))
  83.     MID$(ZMsgRec$,57,1) = "I"
  84.     ZPrivateDoor = (MID$(ZMsgRec$,72,2) = "-1")
  85.     IF ZPrivateDoor THEN _
  86.        ZHasPrivDoor = ZTrue
  87.     MID$(ZMsgRec$,72,2) = STR$(ZFalse)
  88.     ZLocalUser = (MID$(ZMsgRec$,101,2) = ZCarriageReturn$+ZCarriageReturn$) OR _
  89.                  ZLocalUserMode
  90.     IF ZExitToDoors OR ZPrivateDoor THEN _
  91.        ZHasDoored = ZTrue : _
  92.        ZTurboLogon = ZTrue
  93.     PUT 1,ZNodeRecIndex
  94.     GOSUB 12985
  95.     GET 1,1
  96.     CallsToDate! = VAL(MID$(ZMsgRec$,11,10))
  97.     IF CallsToDate! < 11 THEN _
  98.        CALL CopyRight
  99. '
  100. * DELETING old line(s)
  101. 160
  102. * REPLACING old line(s) by new
  103. 175 GOSUB 5344
  104.     CALL CountLines (MaxEntries)
  105.     REDIM ZCategoryName$(MaxEntries),ZCategoryCode$(MaxEntries),_
  106.           ZCategoryDesc$(MaxEntries)
  107.     CALL InitFMS (ZNumCategories)
  108.     ZMaxMsgLines = ZMaxMsgLinesDef
  109.     IF (NOT ZLocalUser) AND (NOT ZSubBoard) THEN _
  110.        CALL OpenCom (ZModemInitBaud$,",N,8,1")
  111.     IF NOT ZSubBoard THEN _
  112.        CALL SetEcho (ZDefaultEchoer$)
  113.     ZNodeWorkFile$ = ZNodeWorkDrvPath$ + _
  114.                       "NODE" + _
  115.                       ZNodeFileID$ + _
  116.                       "WRK"
  117. * ------[ first line different ]------
  118.     ZBatchWorkFile$ = ZNodeWorkDrvPath$ + _   'Pe BatchUp mod
  119.                       "NODE" + _              'Pe BatchUp mod
  120.                       ZNodeFileID$ + _        'Pe BatchUp mod
  121.                       "BCH"                   'Pe BatchUp mod
  122.     ZSecsPerSession! = ZMinsPerSession * 60!
  123.    Call FindLang                         'Pe022593
  124.     LogIndex = 1
  125.     IF NOT ZLocalUserMode THEN _
  126.        IF NOT ZExitToDoors THEN _
  127.           GOTO 180 _
  128.        ELSE IF NOT ZLocalUser THEN _
  129.                GOTO 180
  130.     ZLocalUser = ZTrue
  131.     ZBPS = -9              'Pe 08/01/92
  132.     ZBaudTest! = 14000     'Pe 08/01/92
  133.     ZCBaud$ = "14400"      'Pe 08/01/92
  134.     ZCBPS = -9             'Pe 08/01/92
  135.     ZEightBit = ZTrue
  136.     ZSnoop = ZTrue
  137.     IF ZExitToDoors THEN _
  138.        CALL AMorPM : _
  139.        CALL ReadProf(1) : _    'Pe 12/20/92
  140.        GOTO 410
  141.     GOSUB 178
  142.     GOTO 340                 'Pe 021893
  143. * REPLACING old line(s) by new
  144. 178 IF NOT ZSubBoard THEN _
  145.        RETURN
  146.     IF ZNewUser THEN _
  147.        GOSUB 758
  148. * ------[ first line different ]------
  149.        IF OrigFirstName$ = ZSysopFirstName$ AND _                 'Dgs-ALias
  150.           ZLastName$ = ZSysopLastName$ THEN _
  151.              RETURN 832 _
  152.        ELSE RETURN 790
  153. * REPLACING old line(s) by new
  154. 202 ZFF = -ZSubParm
  155.     ON ZFF GOTO 10595, _   '  -1 = CARRIER DROPPED
  156.                  4770, _   '  -2 = SYSOP INITIATED CHAT
  157.                   205, _   '  -3 = FORCE SYSTEM TO ANSWER THE PHONE
  158.                   204, _   '  -4 = EXIT TO DOS IMMEDIATELY
  159. * ------[ first line different ]------
  160.                   204, _   '  -5 = EXIT TO DOS AFTER CLEAN-UP      'Pe 06/25/92
  161.                 10698, _   '  -6 = INDICATE ACCESS IS DENIED AND LOGOFF USER
  162.                 10620, _   '  -7 = UPDATE CALLERS FILE AND LOGOFF USER
  163.                 10597      '  -8 = Force user offline  'Pe 01/31/93
  164. * DELETING old line(s)
  165. 203
  166. * REPLACING old line(s) by new
  167. 206 CALL TimedOut
  168. * ------[ first line different ]------
  169.     GOTO 204                                                   'Pe 06/25/92
  170. * INSERTING new line(s)
  171. 340 CALL SayWelcome ("", 1)             'Pe 08/01/92
  172. * DELETING old line(s)
  173. 345
  174. * REPLACING old line(s) by new
  175. 346 GOSUB 466
  176.     IF ZSubParm = -1 THEN _
  177.        GOTO 13540
  178.     ZFF = ZFalse
  179. * ------[ first line different ]------
  180. '********** Delete all the files in ARKVIEW.PATH$ **********
  181. '***********************************************************
  182. 'First create a Dummy file so the directory is not empty. It
  183. 'avoids having to use an ON ERROR routine if the directory
  184. 'is empty. Then just kill everything in the ARKVIEW.PATH$
  185. '***********************************************************
  186. CALL OpenOutW (ZArkViewPath$ + "DANDAN.DAN")
  187.     CLOSE 2
  188.   CALL KillWork (ZArkViewPath$ + "*.*")
  189. '
  190. '
  191. '
  192. ' *****  GET USER NAME
  193. ' *****  C - COMMAND FROM NEWUSER REGISTER OPTIONS (CHANGE NAME OR ADDRESS)
  194. '
  195. * REPLACING old line(s) by new
  196. 400 CALL SkipLine(1)
  197.     ZEscapeInsecure = ZFalse
  198.     ZUpperCase = ZFalse
  199.     CALL SetExpert
  200.     WasA1$ = "What is your "
  201.     CALL FlushCom (ZWasDF$)
  202.     GOSUB 12500
  203.     CALL CommInfo
  204.     IF ZFF THEN _
  205.        ZLogonErrorIndex = 1 : _
  206.        GOTO 10620
  207.     IF ZMinOldCallerBaud > ZBaudTest! THEN _
  208. * ------[ first line different ]------
  209.       X = 1 : _         'Pe 01/17/93
  210.      Gosub 47000 : _     'Pe 01/17/93
  211.        CALL QuickTPut1 ( STR$(ZBaudTest!) + OutTxt$ ) : _
  212.       X = 209 : _        'Pe 01/26/93
  213.         Gosub 47000 : _  'Pe 01/26/93
  214.        ZWasLG$(7) = OutTxt$ : _
  215.        ZLogonErrorIndex = 7 : _
  216.        GOTO 10620
  217.     LogIndex = 4 - (ZLenIndiv > 0 AND ZStartIndiv > 0)
  218.     ZTurboLogon = (LEFT$(ZUserIn$(LogIndex),1) = "!")
  219.     SkipWelcomeScreen = (LEFT$(ZUserIn$(LogIndex),1) = "$")
  220. ' Pe test
  221. '    ZHomeConf$ = RIGHT$(ZUserIn$(LogIndex),LEN(ZUserIn$(LogIndex)) _
  222. '                     + (ZTurboLogon OR SkipWelcomeScreen))
  223. '    CALL AllCaps(ZHomeConf$)
  224. ' Pe Test
  225.  
  226. '
  227. ' *****  CHECK IF SAME USER ON ANOTHER NODE   ***
  228. '
  229. * REPLACING old line(s) by new
  230. 420 IF MID$(ZMsgRec$,57,1) = "A" THEN _
  231.        ZLogonErrorIndex = 6 : _
  232.        ZWasLG$(6) = ZWasLG$(6) + _
  233.                 LEFT$(ZMsgRec$,25) : _
  234. * ------[ first line different ]------
  235.       X = 210 : _        'Pe 01/26/93
  236.         Gosub 47000 : _  'Pe 01/26/93
  237.        ZOutTxt$ = "The name '" + ZActiveUserName$ + OutTxt$ : _
  238.        CALL RingCaller : _
  239.        GOTO 10620
  240.     ZFirstName$ = LEFT$(ZMsgRec$,INSTR(ZMsgRec$, " ") - 1)
  241.     IF NOT ZPrivateDoor THEN _
  242.        CALL SkipLine (1) : _
  243.    X = 2 : _         'Pe 01/17/93
  244.      Gosub 47000 : _     'Pe 01/17/93
  245.        CALL QuickTPut1 (ZFirstName$ + OutTxt$)
  246.     IF ZExitToDoors THEN _
  247.        GOTO 457
  248. '
  249. ' *****  TEST FOR REMOTE SYSOP LOGGING ON   ***
  250. '
  251. * REPLACING old line(s) by new
  252. 462 IF ZRestrictByDate AND ZDaysInRegPeriod > 0 THEN _
  253.        CALL CompDate (ZUserRegYY,ZUserRegMM,ZUserRegDD,UserComputeDate!) : _
  254.        ZRegDaysRemaining = UserComputeDate! + _
  255.                             ZDaysInRegPeriod - _
  256.                             TodayComputeDate! : _
  257.        CALL ExpireDate (UserComputeDate!,ZDaysInRegPeriod,ZExpirationDate$) _
  258.     ELSE ZDaysInRegPeriod = 0
  259.     IF NOT ZPrivateDoor THEN _
  260.        IF ZRegDaysRemaining < 0 AND ZDaysInRegPeriod > 0 THEN _
  261.        IF ZUserSecLevel > ZTempExpiredSec THEN _
  262. * ------[ first line different ]------
  263.       X = 3 : _         'Pe 01/17/93
  264.       Gosub 47000 : _     'Pe 01/17/93
  265.           CALL QuickTPut1 (ZWasLG$(9) + _
  266.                       OutTxt$ + " " + _
  267.                       STR$(ZTempExpiredSec)) : _
  268.           CALL BufFile(ZHelpPath$+"RGXPIRD"+ZHelpExtension$,WasX) : _
  269.           ZLogonErrorIndex = 9 : _
  270.           ZUserSecLevel = ZTempExpiredSec : _
  271.           LSET ZSecLevel$ = MKI$(ZUserSecLevel) : _
  272.           GOSUB 5135
  273.     RETURN
  274. '
  275. ' ***  DISPLAY LOG-ON MESSAGE FOR SPECIFIC SECURITY LEVEL  **
  276. '
  277. * REPLACING old line(s) by new
  278. * ------[ first line different ]------
  279. 465 ZTurboLogon = ZTurboLogon AND (ZExitToDoors OR _
  280.                   (ZUserSecLevel >= ZAllowCallerTurbo))
  281.     IF ZTurboLogon THEN _
  282.        RETURN
  283.     ZFileName$ = ZWelcomeFileDrvPath$ + _
  284.                  "LG" + _
  285.                  UserSecLevel$ + _
  286.                  ".DEF"
  287. * REPLACING old line(s) by new
  288. 480 CALL SetSysOp
  289. * ------[ first line different ]------
  290. '    IF ZPrivateDoor OR (ZWasA AND ZEscapeInsecure) OR ZDoorSkipsPswd
  291. IF ZPrivateDoor OR (ZWasA AND ZEscapeInsecure) OR ZExitToDoors THEN _ 'Pe 01/03/90
  292.        ZWasZ$ = ZPswdSave$ : _
  293.        ZPswdFailed = 0 : _
  294.        GOTO 644
  295.     ZSubParm = 4
  296.     CALL PassWrd
  297.     LogonPswdFailed = ZPswdFailed
  298.     ZAnsIndex = LogIndex
  299. * REPLACING old line(s) by new
  300. 643 IF NOT LogonPswdFailed THEN _
  301.        GOSUB 41070 : _
  302.        GOTO 644 _
  303.     ELSE IF ZExitToDoors THEN _
  304.             GOTO 644
  305.     GOSUB 12991
  306. * ------[ first line different ]------
  307.       X = 211         'Pe 01/26/93
  308.         Gosub 47000   'Pe 01/26/93
  309.     ZOutTxt$ = OutTxt$
  310.     GOSUB 12999
  311.     IF ZYes THEN _
  312.        OrigSubject$ = "FORGOTTEN PASSWORD" : _
  313.        GOSUB 1801
  314.     ZFirstName$ = ""
  315.     GOTO 902
  316. * REPLACING old line(s) by new
  317. 660 GOTO 800
  318. * REPLACING old line(s) by new
  319. 700 ZExpertUser = ZFalse
  320.     CALL SetExpert
  321.     IF ZMinNewCallerBaud > ZBaudTest! THEN _
  322. * ------[ first line different ]------
  323.     X = 4 : _         'Pe 01/17/93
  324.     Gosub 47000 : _     'Pe 01/17/93
  325.        CALL QuickTPut1 ("Sorry," + STR$(ZBaudTest!) + _
  326.                        OutTxt$) : _
  327.       X = 212 : _        'Pe 01/26/93
  328.         Gosub 47000 : _  'Pe 01/26/93
  329.        ZWasLG$(7) = OutTxt$ : _
  330.        ZLogonErrorIndex = 7 : _
  331.        GOTO 10620
  332.        X = 5          'Pe 01/17/93
  333.        Gosub 47000      'Pe 01/17/93
  334.     CALL QuickTPut1 (OutTxt$)
  335.     ZLastIndex = 0
  336.     GOSUB 12558
  337.     IF ZNo THEN _
  338.        GOSUB 13700 : _
  339.        GOTO 400
  340.     CALL Line25
  341.     ZWasZ$ = ZFirstName$
  342.     GOSUB 670
  343.     ZWasZ$ = ZLastName$
  344.     GOSUB 670
  345.     ZWasZ$ = ZActiveUserName$
  346.     GOSUB 670
  347.     ZTurboLogon = ZFalse
  348. * REPLACING old line(s) by new
  349. 725 IF ZUserSecLevel < ZMinLogonSec THEN _
  350.        ZLogonErrorIndex = 1 : _
  351.        GOTO 460
  352.     IF ZFirstName$ = ZLastName$ THEN _
  353. * ------[ first line different ]------
  354.       X = 6 : _         'Pe 01/17/93
  355.       Gosub 47000 : _     'Pe 01/17/93
  356.        CALL QuickTPut1 (ZFirstNamePrompt$+"/"+ZLastNamePrompt$+OutTxt$) : _
  357.        ZLogonErrorIndex = 3 : _
  358.        GOTO 10620
  359.     IF NOT ZRememberNewUsers THEN _
  360.        GOSUB 13700 : _
  361.        ZUserFileIndex = 0 : _
  362.        GOSUB 12960: _
  363.        PrevLastOn$ = "00-00-00": _
  364.        GOTO 735
  365.     ZNewUser = ZTrue
  366.     ZNewUserDGS = ZTrue                                           'DGS-NEW
  367.     CALL OpenUser (ZHighestUserRecord)
  368.     GOSUB 9450
  369.     GOSUB 12630
  370.     MID$(ZUserRecord$,ZStartHash,ZLenHash) = LEFT$("NEWUSER",ZLenHash)
  371.     IF ZStartIndiv > 0 THEN _
  372.        MID$(ZUserRecord$,ZStartIndiv,ZLenIndiv) = ZIndivValue$
  373.     GOSUB 9440
  374. * REPLACING old line(s) by new
  375. * ------[ first line different ]------
  376. 754  X = 7          'Pe 01/17/93
  377.      Gosub 47000      'Pe 01/17/93
  378.     CALL QuickTPut1 (OutTxt$)
  379.     ZUserSecSave = ZUserSecLevel
  380.     GOTO 832
  381. * REPLACING old line(s) by new
  382. 755 IF ZPrivateDoor THEN _
  383.        ZUserIn$ = ZPswd$ : _
  384.        ZWasZ$ = ZUserIn$ : _
  385.        RETURN
  386.     GOSUB 12800
  387. * ------[ first line different ]------
  388.       X = 213         'Pe 01/26/93
  389.         Gosub 47000  'Pe 01/26/93
  390.     ZOutTxt$ = OutTxt$
  391.     GOSUB 45010
  392.     SWAP ZWasZ$,ZUserIn$
  393.     CALL AllCaps (ZWasZ$)
  394.     IF ZUserIn$ <> ZWasZ$ THEN _
  395.        X = 8 : _         'Pe 01/17/93
  396.         Gosub 47000 : _     'Pe 01/17/93
  397.         CALL QuickTPut1 (OutTxt$) : _
  398.        GOTO 755
  399.     RETURN
  400. * REPLACING old line(s) by new
  401. * ------[ first line different ]------
  402. 760 LastIndex = 0
  403.     GOSUB 755
  404.     CALL AllCaps (ZWasZ$)
  405.     LSET ZPswd$ = ZWasZ$
  406.     ZUserTextColor = 37
  407.     ZTempSecLevel = ZUserSecLevel
  408. Call MenuPlus (1)                           'Pe Menu174
  409.     CALL Protocol
  410.     ZUserXferDefault$ = "N"
  411.     ZProtoPrompt$ = "None"
  412.      If ZCanAnsiChat Then _           'Pe 02/13/93
  413.       Call SetGraphic (2)        ' 1 = ANSI 2 = Color Ansi     'Pe 02/13/93
  414.     IF ZNewUserSetsDefaults THEN _
  415.        ZBypassTimeCheck = ZTrue : _
  416.        GOSUB 43000 : _
  417.        ZBypassTimeCheck = ZFalse : _
  418.        CALL Graphic (ZFileName$) : _
  419.        GOSUB 42805 : _
  420.        GOSUB 42700 _
  421.     ELSE ZUpperCase = ZFalse : _
  422.          ZNulls = ZFalse
  423.     ZPageLength = ZPageLengthDef
  424.     CALL SetNewUserDef
  425.     GOSUB 5135
  426.     CALL DefaultU
  427. * REPLACING old line(s) by new
  428. 800 IF ZAdjustedSecurity THEN _
  429.        GOSUB 5135
  430.     IF ZOrigCnfg$ = ZCurDef$ THEN _
  431.        ZMainUserFileIndex = ZUserFileIndex : _
  432.        ZOrigSec = ZUserSecLevel : _
  433.        ZUserSecSave = ZUserSecLevel : _
  434. * ------[ first line different ]------
  435.        OrigFirstName$ = ZFirstName$ : _                           'Dgs-ALias
  436.        ZOrigUserNameDgs$ = ZActiveUserName$ : _                   'Dgs-ALias
  437.        ZOrigUserName$ = ZActiveUserName$
  438.     ZTimesLoggedOn = CVI(MID$(ZUserOption$,1,2)) - _
  439.        ((ZOrigCnfg$ <> ZCurDef$ OR NOT ZSubBoard) AND _
  440.         (NOT ZPrivateDoor) AND (NOT ZExitToDoors))
  441.     GOSUB 9500
  442. '
  443. '          Pe 06/01/91
  444. '
  445.     PrevLastOn$ = ZLastDateTimeOn$
  446.     call MenuPlus (2)                       'Pe Menu174
  447.     IF ZLocalUser THEN _   
  448.        ZTalkToModemAt$ = "14400" : _            'Pe 08/01/92
  449.        ZBaudParity$ = "14400 BPS,N,8,1" : _    'Pe 08/01/92
  450.        ZModemInitBaud$ = "14400" : _            'Pe 08/01/92
  451.        ZCBaud$ = "14400" : _                    'ST021693
  452.        ZSnoop = ZTrue : _
  453.        ZLineFeeds = ZTrue
  454.     CALL SetCrLf
  455.     CALL SetPrompt
  456.     CALL XferType (2,ZTrue)
  457.     IF NOT ZSubBoard THEN _
  458.        BoardCheckDate$ = PrevLastOn$
  459.     CALL SetSysOp
  460.     IF ZWasA THEN _
  461.      ZActiveUserName$ = ZSysopFirstName$ + " " + ZSysopLastName$ : _ 'TS041492
  462.      ZFirstName$ = ZSysopFirstName$                                  'TS041492
  463.     IF (NOT ZExitToDoors) AND (NOT ZSubBoard) THEN _
  464.        CALL UpdtCalr (ZActiveUserName$ + " from " + ZWasCI$ + _
  465.                  " Lvl" + STR$(ZUserSecLevel) + " " + TIME$ + _
  466.                   "  " + ZCBaud$+" BPS" ,2)   'Pe 01/30/93
  467. '       CALL UpdtCalr ("Line Speed " + ZCBaud$,2)                     ' KG092201
  468.     IF ZExitToDoors OR ZSubBoard THEN _
  469.        GOTO 815
  470.     GOSUB 465
  471.     Temp$ = STR$(ZBaudTest!) + MID$(ZBaudParity$,INSTR(ZBaudParity$," B"))
  472. Call SayWelcome (Temp$,3)   'Pe 08/01/92
  473.     Attempts = 0
  474.     ZWasZ$ = ZActiveUserName$ + _
  475.             " on at " + _
  476.             ZCurDate$ + _
  477.             ", " + _
  478.             ZTime$ + _
  479.             " from " + _
  480.             ZWasCI$ + _
  481.             ", " + Temp$
  482.      ZWasNG$ = ZWasZ$ + SPACE$(128 - LEN(ZWasZ$))
  483. '
  484. ' *  ALWAYS RECORD THE HASH/INDIVIDUATING FIELD TO EACH RECORD LOGGED OUT
  485. '
  486.      WasX$ = "{" + _
  487.           HashValue$ + _
  488.           "/" + _
  489.           ZIndivValue$ + _
  490.           "}"
  491.      IF LEN(ZWasZ$) < 65 THEN _
  492.         WasX = 65 _
  493.      ELSE WasX = LEN(ZWasZ$) + 2
  494.      MID$(ZWasNG$,WasX) = WasX$
  495.      CALL Printit ("  " + ZWasZ$)
  496.      IF ZNewUser THEN _
  497.         CALL UpdtCalr ("NEWUSER",1)      'Pe 05/29/91
  498. * REPLACING old line(s) by new
  499. 815 CALL SetUserUpDn
  500.     IF ZCurDate$ <> LEFT$(ZLastDateTimeOnSave$,8) THEN  _
  501.        ZDLToday! = 0 : _
  502.        ZBytesToday! = 0
  503. * ------[ first line different ]------
  504.     IF ZExitToDoors THEN _       '08/17/91 lk fix for sxpr screwing banktime
  505.        ZBankTime = ZTempBankTime  '08/17/91 lk fixfor sxpr
  506. '      ZGlobalsSet = ZFalse                                    'Pe022193
  507.     CALL SetGlobalUpDn
  508.     GOSUB 827
  509.     LSET ZUserOption$ = MKI$(ZTimesLoggedOn) + _
  510.                         MID$(ZUserOption$,3)
  511.     LSET ZLastDateTimeOn$ = ZCurDate$ + _
  512.                               " " + _
  513.                               ZTimeLoggedOn$
  514.     MID$(ZUserRecord$,ZStartHash,ZLenHash) = HashValue$
  515.     IF ZStartIndiv > 0 THEN _
  516.        MID$(ZUserRecord$,ZStartIndiv,ZLenIndiv) = ZIndivValue$
  517.     LSET ZUserName$ = ZOrigUserName$
  518.     IF (NOT ZExitToDoors) AND NOT (ZOrigMsgFile$ = ZActiveMessageFile$ AND ZSubBoard) THEN _
  519.        CALL AutoPage
  520.     IF NOT ZSubBoard THEN _
  521.        ZOrigUserFileIndex = ZUserFileIndex
  522.     IF NOT ZConfMode THEN _
  523.        IF ZOrigDateTimeOn$ = "" THEN _
  524.           ZOrigDateTimeOn$ = ZLastDateTimeOn$ : _
  525.           ZOrigTimeLoggedOn$ = ZTimeLoggedOn$ _
  526.        ELSE ZLastDateTimeOn$ = ZOrigDateTimeOn$ : _
  527.             ZTimeLoggedOn$ = ZOrigTimeLoggedOn$
  528.     GOSUB 9440
  529.     GOSUB 12991
  530.     GOSUB 41000
  531.     CALL AskMore ("",ZTrue,ZTrue,WasX,ZTrue)
  532.     IF ZTurboLogon THEN _
  533.        GOTO 819
  534.     IF SkipWelcomeScreen AND _
  535.        (ZUserSecLevel >= ZAllowCallerTurbo) THEN _
  536.        GOTO 816
  537.     IF NOT SameUser THEN _
  538.        CALL DisplayWelcome                                       ' DD011601
  539.     ZBypassTimeCheck = ZFalse
  540.     ZStopInterrupts = ZTrue
  541. * REPLACING old line(s) by new
  542. 816 Call SayWelcome (PrevLastOn$,2)   'Pe 08/01/92
  543. * DELETING old line(s)
  544. 817
  545. * REPLACING old line(s) by new
  546. 818 CALL AskMore ("",ZTrue,ZTrue,WasX,ZTrue)
  547.     IF ZRemindProfile THEN _
  548. * ------[ first line different ]------
  549.        GOSUB 5450 : _
  550.        CALL AskMore ("",ZTrue,ZTrue,WasX,ZTrue)
  551. * REPLACING old line(s) by new
  552. 819 CALL Trim (ZWasCI$)
  553.     IF (ZNodeRecIndex < 2) THEN _
  554.        GOTO 821
  555.     GOSUB 4910
  556.     GOSUB 24000
  557.     GET 1,ZNodeRecIndex
  558.     MID$(ZMsgRec$,1,31) = ZActiveUserName$ + _
  559.                                  SPACE$(31 - LEN(ZActiveUserName$))
  560.     MID$(ZMsgRec$,40,2) = " 0"
  561. * ------[ first line different ]------
  562.     MID$(ZMsgRec$,44,2) = RIGHT$(STR$(-ZBPS),2)                      ' KG032604
  563.     MID$(ZMsgRec$,55,2) = " 0"
  564.     MID$(ZMsgRec$,57,1) = "A"
  565.     MID$(ZMsgRec$,60,5) = ZTalkToModemAt$ + _
  566.                                  SPACE$(5 - LEN(ZTalkToModemAt$))
  567.     MID$(ZMsgRec$,72,2) = " 0"
  568.     MID$(ZMsgRec$,93,24) = ZWasCI$ + _
  569.                                   SPACE$(24)
  570.     PUT 1,ZNodeRecIndex
  571.     GOSUB 12985
  572.  
  573. 'Test code see sub 2
  574. '    IF (NOT ZConfMode) AND (NOT ZSubBoard) AND NOT ZTurboLogon THEN 
  575. '      Call SkipLine (1)
  576. '        CALL WhosOn (ZMaxNodes)
  577. '         Close 9
  578. '      If ZSubParm = -8 then Goto 202
  579. '       Call SkipLine (1)
  580. '     End IF
  581. 'End Test from Sub 2
  582.  
  583. * REPLACING old line(s) by new
  584. 821 IF ZExitToDoors THEN _
  585.        IF ZTransferFunction = 3 THEN _
  586.           ZNewUser = ZTrue : _
  587. * ------[ first line different ]------
  588.           ZTurboLogon = ZFalse : _
  589.           SameUser = ZFalse : _
  590.           ZTransferFunction = 0 : _
  591.           GOTO 832 _
  592.        ELSE GOTO 832
  593.     GOSUB 1241
  594.     IF (ZSubBoard AND (ZOrigMsgFile$ = ZActiveMessageFile$)) _
  595.        OR ((ZUserSecLevel > ZMaxRegSec) AND (NOT ZNewUser)) THEN _
  596.        GOTO 832
  597.     ZWasZ$ = ZRegProgram$
  598.     ZTransferFunction = 3
  599.     CALL DoorExit (ZFalse)
  600.     ZTransferFunction = 0
  601.     GOTO 832
  602. '
  603. ' ****  ESC PRESSED ON LOCAL CONSOLE ENTERS HERE   ***
  604. '
  605. * REPLACING old line(s) by new
  606. 822 LOCATE 24,1
  607.     CALL TakeOffHook
  608.     ZLocalUser = ZTrue
  609.     ZSnoop = ZTrue
  610. * ------[ first line different ]------
  611.     ZBPS = -9                    'Pe 08/01/92
  612.     CALL CommInfo
  613.     IF NOT ZEscapeInsecure THEN _
  614.        GOTO 340                          'Pe 021893
  615.     ZActiveUserName$ = ZSecretName$
  616.     ZFirstName$ = ZSysopPswd1$
  617.     ZLastName$ = ZSysopPswd2$
  618.     ZUserLogonTime! = TIMER
  619.     ZTimeLoggedOn$ = TIME$
  620.     ZLinesPrinted = 0
  621.     ZSysop = ZTrue
  622.     GOTO 457
  623. * REPLACING old line(s) by new
  624. 827 IF ZLastMsgRead > HighMsgNumber THEN _
  625. * ------[ first line different ]------
  626.        ZLastMsgRead = HighMsgNumber : _            'Pe 04/18/92
  627.        MID$(ZUserOption$,3,2) = MKI$(0)
  628.     RETURN
  629. * REPLACING old line(s) by new
  630. 832 IF ZRestrictByDate AND ZDaysInRegPeriod > 0 THEN _
  631.        IF ZRegDaysRemaining <= ZDaysToWarn AND _
  632.           ZRegDaysRemaining > 0 AND ZUserSecLevel > ZTempExpiredSec THEN _
  633. * ------[ first line different ]------
  634.       X = 9 : _         'Pe 01/17/93
  635.      Gosub 47000 : _     'Pe 01/17/93
  636.              CALL QuickTPut1 (OutTxt$ + _
  637.                        STR$(ZRegDaysRemaining) + " days!") : _
  638.              CALL BufFile(ZHelpPath$+"RGXPIRE"+ZHelpExtension$,WasX) : _
  639.              IF NOT ZOK THEN CALL DelayTime (5)
  640.     IF (NOT ZReqQuesAnswered) AND _
  641.        ZReqQues$ <> "" THEN _
  642.          ZFileName$ = ZReqQues$ : _
  643.          GOSUB 11520 : _
  644.          IF ZOK THEN _
  645.             ZReqQuesAnswered = ZTrue
  646. * REPLACING old line(s) by new
  647. 850 ZSubParm = 2
  648.     CALL Line25
  649.     CALL SkipLine (1)
  650. * ------[ first line different ]------
  651.     IF ZTurboLogon THEN _
  652.        ZBulletinSave$ = ZBulletinMenu$ : _
  653.        GOSUB 9750 : _
  654.        GOTO 900
  655.     CALL CountNewFiles (BoardCheckDate$,ZMsgPtr(),LastNew,OutTxt1$)
  656.    IF ZNewUser OR LastNew < 1 OR NOT ZNewFilesCheck THEN _       'Pe 01/02/90
  657.        GOTO 852                           'Pe 01/02/90
  658.     IF ZFMSDirectory$ <> "" THEN _
  659.      X = 10 : _         'Pe 01/17/93
  660.      Gosub 47000 : _     'Pe 01/17/93
  661.        CALL QuickTPut1 (OutTxt1$ + STR$(LastNew) + OutTxt$) _
  662.     ELSE GOTO 852
  663.     WasL = LEN(ZDnldDrives$)
  664.     SecNum = 19
  665.     IF (NOT ZSkipFilesLogon) AND _
  666.        ZUserSecLevel >= ZOptSec(SecNum) THEN _
  667.       X = 214 : _        'Pe 01/26/93
  668.         Gosub 47000 : _  'Pe 01/26/93
  669.           ZOutTxt$ = OutTxt$ : _
  670.           GOSUB 12999 : _
  671.           IF NOT ZNo THEN _
  672.              ZLastIndex = 3 : _
  673.              ZAnsIndex = 1 : _
  674.              ZWasQ = 3 : _
  675.              ZUserIn$(2) = MID$(BoardCheckDate$,1,2) + _
  676.                      MID$(BoardCheckDate$,4,2) + _
  677.                      MID$(BoardCheckDate$,7,2) : _
  678.              ZWasY$ = ZUserIn$(3) : _
  679.              CALL BreakFileName (ZFMSDirectory$,DR$,ZWasY$,WasX$,ZFalse) : _
  680.              ZUserIn$(3) = ZWasY$ : _
  681.              TimeLockExempt = ZTrue : _
  682.              GOSUB 20185 : _
  683.              ZLastIndex = 0 : _
  684.              TimeLockExempt = ZFalse
  685. * REPLACING old line(s) by new
  686. 856 IF NOT ZCheckBulletLogon THEN _
  687.        ZAnsIndex = 0 : _
  688.        GOSUB 9760 : _
  689.        GOTO 900
  690.     CALL SkipLine (1)
  691. * ------[ first line different ]------
  692.       X = 209         'Pe 01/26/93
  693.         Gosub 47000   'Pe 01/26/93
  694.     ZOutTxt$ = OutTxt$
  695.     GOSUB 12999
  696.     IF ZYes THEN _
  697.        GOTO 900
  698. * REPLACING old line(s) by new
  699. 900 ZNewUser = ZFalse
  700.     ActionFlag = (ZLogonMailLevel$ = "S")
  701.     LogonMailNew = (ZLogonMailLevel$ = "N")
  702. * ------[ first line different ]------
  703.     GOSUB 1895                                'Pe temp
  704.     IF ZActiveUserName$ = "SYSOP" AND NOT ZSysop THEN _
  705.        ZActiveUserName$ = ZOrigUserName$
  706.     LogonMailNew = ZFalse
  707.     ZSubParm = 2
  708.     CALL Line25
  709.     ZSection$ = "    "
  710.     ZOutTxt$ = ""
  711.     IF (NOT ZConfMode) AND (NOT ZSubBoard) AND NOT ZTurboLogon And NOT ZSkipMailcheck THEN _ 'pe 11/02/92
  712.        MailCheckConfirm = ZTrue : _
  713.        LinkNew = ZTrue : _
  714.        GOSUB 5800
  715.     MailCheckConfirm = ZFalse
  716.     ZWasQ! = ZMinsInDoors * 60
  717.     ZMinsInDoors = 0
  718. * REPLACING old line(s) by new
  719. * ------[ first line different ]------
  720. 955 IF NOT ZTurboLogon THEN _
  721.      If NOT SkipMain Then _
  722.        GOSUB 4850 : _
  723.  IF STR$(ZLastMsgRead) < STR$(HighMsgNumber) AND ZUserSecLevel => MsgSec THEN _    'Pe 01/29/89
  724.      GOSUB 4275                                 'PEASKMAIL
  725.     SkipMain = ZFalse
  726.     ZTurboLogon = ZFalse
  727.  
  728. '
  729. ' *                           COMMAND PROCESSING
  730. '
  731. * REPLACING old line(s) by new
  732. 1205 IF ZSubParm < 0 THEN _
  733.         GOTO 202
  734.      ZSubParm = 1
  735.      ZStopInterrupts = ZFalse
  736.      ZWasQ = 0
  737.      IF (NOT ConfMailJoin) AND (ZHomeConf$ = "" OR ZHomeConf$ = "MAIN") THEN _
  738.         GOTO 1209
  739. * ------[ first line different ]------
  740.      ZTurboLogon = LinkNext OR (NOT ConfMailJoin)
  741.      ConfMailJoin = ZFalse
  742.      ZFF = 8
  743.      IF ZHomeConf$ = "MAIN" THEN _
  744.         ZHomeConf$ = "M"
  745.      ZUserIn$(ZAnsIndex) = ZHomeConf$
  746.      IF LinkNext THEN _
  747.         ZUserIn$(ZAnsIndex + 1) = "R" : _
  748.         ZLastIndex = ZAnsIndex + 1
  749.      ZLastIndex = -ZLastIndex*(ZLastIndex > ZAnsIndex)-ZAnsIndex*(ZLastIndex <= ZAnsIndex)
  750.      ZAnsIndex = ZAnsIndex - 1
  751.      ZHomeConf$ = ""
  752.      ZWasQ = ZLastIndex
  753.      ZStoreParseAt = 1
  754. ZLastCommand$ = "  "
  755. '      ZLastCommand$ = "MJ"   'Pe Test
  756.      GOTO 1240
  757. * REPLACING old line(s) by new
  758. 1210 GOSUB 41000
  759.      IF ZAnsIndex < ZLastIndex THEN _
  760.         GOTO 1232
  761. * ------[ first line different ]------
  762.      CALL AskMore ("",ZTrue,ZTrue,WasX,ZTrue)
  763.      IF ZExpertUser THEN _
  764.         GOTO 1230
  765. * REPLACING old line(s) by new
  766. 1230 CALL Line25
  767. * ------[ first line different ]------
  768.      CALL CBCheck(WillChat)                                          ' CHAT0814
  769.       IF WillChat = ZTrue Then _   '    GOSUB 9802 : _
  770.         CALL CBTrueChat(ZMaxNodes) : _
  771.         GOTO 1205
  772.      CALL SaveUserActivity("I", ZNodeRecIndex, ZFalse)               ' CHAT0813
  773. * REPLACING old line(s) by new
  774. 1232 MID$(ZLastCommand$,2,1) = " "
  775.      IF ZCustomPUI THEN _
  776.         CALL UserFace : _
  777.         GOSUB 12997 : _
  778.         GOTO 1235
  779. * ------[ first line different ]------
  780.         ZOutTxt$ = ZConfName$ + ":"
  781.         GOSUB 12978                          'Pe 07/18/91
  782.      CALL DispTimeRemain (MinsRemaining)     'Pe 02/03/90
  783.      ZOutTxt$ = ZCmdPrompt$
  784.      GOSUB 12930
  785.      IF ZWasQ = 0 THEN _
  786.         GOTO 1230
  787. * REPLACING old line(s) by new
  788. 1235 ZWasZ$ = ZUserIn$(ZAnsIndex)
  789.      IF ZWasZ$ = SPACE$(LEN(ZWasZ$)) THEN _
  790.         GOTO 1230
  791. * ------[ first line different ]------
  792.       CALL SearchCmd (ZSubSection,ZFF)
  793. IF ZFF > 0 THEN _                                        'PE 08/14/91
  794.       GOTO 1240                                          'PE 08/14/91
  795.      IF ZwasQ > 0 THEN _
  796.         CALL QuickTPut1 ("Unknown command <"+ZWasZ$+">") : _
  797.         CALL FlushKeys : _
  798.         GOTO 1230
  799. * DELETING old line(s)
  800. 1239
  801. * REPLACING old line(s) by new
  802. 1240 IF ZUserSecLevel < ZOptSec(ZFF) THEN _
  803.        ZViolation$ = ZSection$ + _
  804.                      " " + _
  805.                      ZWasZ$ : _
  806.         GOSUB 1380 : _
  807.         GOTO 1205
  808. * ------[ first line different ]------
  809. ZDirExtension$ = ZMainDirExtension$
  810.         ON ZFF GOSUB _
  811.                  1400, _      ' 1  A)nswer questionnaire 1
  812.                  9700, _      ' 2  B)ulletins
  813.                  1800, _      ' 3  C)omment 1800 to Sysop
  814.                  10970, _     ' 4  D)oor (exit to)
  815.                  2000, _      ' 5  E)nter a message
  816.                  1275, _      ' 6  F)ile system (exit to)
  817.                  1525, _      ' 7  I)nitial welcome redisplayed  'Pe 06/09/91
  818.                  5300, _      ' 8  J)oin a conference
  819.                  3900, _      ' 9  K)ill a message
  820.                  4700, _      '10  O)perator page
  821.                  1892, _      '11  P)ersonal mail (look for)     'Pe 02/11/89
  822.                  4330, _      '12  R)ead messages
  823.                  4340, _      '13  S)can message headers
  824.                  4320, _      '14  T)ype ASCII FILE 'Pe 02/03/90
  825.                  1285, _      '15  U)tilities (exit to)
  826.                  5800, _      '16  V)iew a conference
  827.                  9800, _      '17  W)ho's on other nodes displayed
  828.                  9801, _      '18  @ Chat routines                'Pe 01/19/92
  829.                 20160, _      '19  D)ownload
  830.                 10570, _      '20  G)oodbye
  831.                 20155, _      '21  L)ist
  832.                 20185, _      '22  N)ew
  833.                 20180, _      '23  P)ersonal files
  834.                 20175, _      '24  S)can
  835.                 20170, _      '25  U)pload
  836.                 20140, _      '26  V)iew ARC Contents
  837.                  5500, _      '27  W)ho Uploaded that file1 'Pe 08/25/91
  838.                  9099, _      '28  C)lock (time & time on)  'PE 05/31/91
  839.                  42850, _     '29  E)cho selection
  840.                  42800, _     '30  F)ile transfer protocol
  841.                  43000, _     '31  G)raphics
  842.                  5200, _      '32  L)ines per page
  843.                  10925, _     '33  M)essage margin
  844.                  5110, _      '34  P)assword change
  845.                  5450, _      '35  R)eview preferences
  846.                  4849, _      '36  S)tatistics displayed  'Pe 09/02/91
  847.                  1500, _      '37  T)oggle
  848.                  10090, _     '38  U)serlog displayed 12
  849.                  30000, _     '39  A)rchive a Library disk 1
  850.                  30000, _     '40  C)hange a Library disk
  851.                  30000, _     '41  D)ownload Library files
  852.                  10570, _     '42  G)oodbye
  853.                  30000, _     '43  L)ist a Library directory
  854.                  30000, _     '44  S)can a Library disk directory
  855.                  20140, _     '45  V)iew arc contents 7
  856.                  1325, _      '46  H)elp 1
  857.                  1330, _      '47  ?)help
  858.                  1250, _      '48  Q)uit
  859.                  4240, _      '49  X)expert toggle on/off 4
  860.                  10070, _     '50  1) List comments file 1    'Pe 09/12/91
  861.                  10090, _     '51  2) List callers file
  862.                  10390, _     '52  3) Recover a message
  863.                  20195, _     '53  4) BatchUpload Files       'Pe 09/12/91
  864.                  11000, _     '54  5) User file maintenance
  865.                   4130, _     '55  6) Toggle page bell on/off
  866.                  10930, _     '56  7) Exit to DOS 2.x or above 7
  867.                  10950        '57  8) Sysop FMS Maintenance          ' DD020602/SFILE
  868.      GOTO 1205
  869. '
  870. ' ***       NEWS file scan        ***
  871. '
  872. * REPLACING old line(s) by new
  873. 1243 ZFileName$ = ZNewsFileName$
  874.      CALL RBBSFind (ZFileName$,WasZ,WasY,ZMsgPtr,WasD)
  875.      IF WasZ <> 0 THEN _
  876.         RETURN
  877.      FDate# = WasD + (100 * ZMsgPtr) + (10000# * (WasY + 1980))
  878.      IF NewsDate# > FDate# THEN _
  879.         RETURN
  880. * ------[ first line different ]------
  881.      IF ZTurboLogon THEN _
  882.    X = 11 : _         'Pe 01/17/93
  883.      Gosub 47000 : _     'Pe 01/17/93
  884.         CALL QuickTPut1(OutTxt$) : _
  885.         RETURN
  886.      ZStopInterrupts = ZFalse
  887.      GOSUB 1790
  888.      WasZ = 0
  889.      RETURN                                                          ' LP01NEWS
  890. '
  891. ' ****           QUIT COMMAND (GLOBAL)              ***
  892. '
  893. * REPLACING old line(s) by new
  894. * ------[ first line different ]------
  895. 1283  ZWasQ = 0                                                'Pe 06/25/92
  896.       GOTO 1250
  897. * REPLACING old line(s) by new
  898. * ------[ first line different ]------
  899. 1295 ZPrevPui$ = ""     'Pe 07/19/92
  900.      CALL SetSection
  901.      RETURN
  902. * REPLACING old line(s) by new
  903. 1400 WasA1$ = ZAnsMenu$
  904. * ------[ first line different ]------
  905.      ReturnToPrompt = (ZWasQ > 1)
  906. * REPLACING old line(s) by new
  907. 1500 CALL CmndToggle
  908.      RETURN
  909. '
  910. * ------[ first line different ]------
  911. '
  912. ' ****  I - COMMAND FROM MAIN MENU (DISPLAY INITIAL WELCOME)  *** 'Pe 09/02/91
  913. '
  914. * INSERTING new line(s)
  915. 1525 CALL ShowBull (UserSecLevel$)
  916. '
  917. 1596 RETURN
  918. '
  919. * DELETING old line(s)
  920. 1760
  921. * REPLACING old line(s) by new
  922. 1790 CALL Graphic (ZFileName$)
  923.      CALL BufFile (ZFileName$,WasX)
  924.      CALL Carrier
  925.      IF ZSubParm = -1 THEN _
  926.         RETURN 10595
  927.      RETURN
  928. '
  929. * ------[ first line different ]------
  930.  
  931. '
  932. ' ***  C - COMMAND FROM MAIN MENU (LEAVE COMMENT FOR SYSOP)   **
  933. '
  934. * REPLACING old line(s) by new
  935. * ------[ first line different ]------
  936. 1801 MsgTo$ = ZSysopFirstName$ + " " + ZSysopLastName$     'TS 04/14/92
  937.      Subject$ = OrigSubject$
  938.      MsgFrom$ = ZActiveUserName$
  939.      GOSUB 1893
  940.      IF (ActiveMessages >= MaxMsgs OR _
  941.         ((NOT ZMsgsCanGrow) AND _
  942.         (ZNextMsgRec + 5 + ZMaxNodes > HighestMsgRecord)) OR _
  943.         NOT ZCmntsAsMsgs ) THEN _
  944.         ZOutTxt$ = "Want a Reply?  Use "+MID$(ZAllOpts$,5,1) + _
  945.                    " instead.  Leave a comment? (Y,[N])" : _
  946.         GOSUB 12999 : _
  947.         IF NOT ZYes THEN _
  948.            CALL SkipLine (1) : _
  949.            RETURN _
  950.         ELSE ZSysopComment = ZTrue : _
  951.              GOTO 2007
  952.      ZSysopComment = ZFalse
  953.      ZSysopMsg = ZTrue
  954.      ZMsgHeader$ = "comment"
  955.      GOTO 2010
  956. * REPLACING old line(s) by new
  957. 1850 WasBX = &H3
  958.      ZWasEN$ = ZCmntsFile$
  959.      GOSUB 12992
  960.      CALL OpenWorkA (ZCmntsFile$)
  961. * ------[ first line different ]------
  962.       X = 216         'Pe 01/26/93
  963.         Gosub 47000   'Pe 01/26/93
  964.      ZOutTxt$ = ZFirstName$ + OutTxt$
  965.      GOSUB 12976
  966.      CALL AMorPM
  967.      CALL PrintWorkA (ZActiveUserName$+" "+ZCurDate$+" "+ZTime$+" Node "+ZNodeID$)
  968.      FOR WasX = 1 TO ZLinesInMsg
  969.         CALL PrintWorkA (ZOutTxt$(WasX))
  970.      NEXT
  971.      CALL PrintWorkA (ZCarriageReturn$)
  972.      CLOSE 2
  973.      IF ZErrCode <> 0 THEN _
  974.         ZWasEL = 1850 : _
  975.         GOTO 13000
  976.      WasBX = &H3
  977.      ZWasEN$ = ZCmntsFile$
  978.      GOSUB 12993
  979.      CALL UpdtCalr ("Left comment",1)
  980.      REDIM ZOutTxt$(ZMsgDim)
  981. IF ZLogOff$ = "G" THEN
  982. GetOut = Ztrue
  983.  Zlogoff$ = "L"
  984.  GOTO 10560
  985.  End IF         ' Pe 02/03/90
  986.      RETURN
  987. '
  988. ' ****  P - COMMAND FROM MAIN MENU (DISPLAY PERSONAL MAIL)  ****
  989. '
  990. * INSERTING new line(s)
  991. 1892 GOSUB 1900                                  'Pe 02/11/89
  992.      CALL AskMore ("",ZTrue,ZFalse,WasX,ZTrue)   'Pe 02/11/89
  993.      RETURN                                      'Pe 02/11/89
  994. * REPLACING old line(s) by new
  995. * ------[ first line different ]------
  996. 1895 IF ZTurboLogon or ZSkipMailCheck THEN _       'Pe 11/02/92
  997.         RETURN
  998.       X = 217 : _        'Pe 01/26/93
  999.         Gosub 47000 : _  'Pe 01/26/93
  1000.      ZOutTxt$ = OutTxt$ + ZConfName$ + " ([Y],N)"
  1001.      GOSUB 12999
  1002.      IF ZNo THEN _
  1003.         SkipMain = ZTrue : _
  1004.         RETURN
  1005.      ZUserIn$(0) = LEFT$("NEW ",-4*LogonMailNew)
  1006. * REPLACING old line(s) by new
  1007. 1900 GOSUB 5344
  1008.      IF ZPrivateDoor THEN _
  1009.         ActionFlag = ZTrue
  1010.      ZPrevBase$ = ZActiveMessageFile$
  1011.      ShowActive = ZFalse
  1012.      IF NOT ActionFlag THEN _
  1013. * ------[ first line different ]------
  1014.       X = 218 : _        'Pe 01/26/93
  1015.         Gosub 47000 : _  'Pe 01/26/93
  1016.         CALL QuickTPut (OutTxt$ + ConfFileName$,0) : _
  1017.         ShowActive = ZTrue _
  1018.      ELSE X = 219 : _        'Pe 01/26/93
  1019.         Gosub 47000 : _  'Pe 01/26/93
  1020.  CALL QuickTPut (OutTxt$,0)
  1021.      WasA1$ = ""
  1022.      MsgCt = 0
  1023.      MsgsFromUser = ZFalse
  1024.      ActiveMessages = 0
  1025.      MailReported = ActionFlag
  1026.      FirstOld = ZTrue
  1027.      GOSUB 23000
  1028.      MsgRec = FirstMsgRecord
  1029.      MaxMsgs = VAL(MID$(ZMsgRec$,89,7))
  1030.      NumDots = 0
  1031. * REPLACING old line(s) by new
  1032. 1906 IF ActionFlag OR (FirstOld AND NOT MailReported) THEN _
  1033. * ------[ first line different ]------
  1034.         CALL MarkTimeB (NumDots)                              'Lk021693
  1035.           CALL Carrier
  1036.      IF ZSubParm = -1 THEN _
  1037.         RETURN 10595
  1038. * REPLACING old line(s) by new
  1039. 1925 ZWasA = VAL(MID$(ZMsgRec$,2,4))
  1040.      IF LogonMailNew THEN _
  1041.         IF ZWasA <= ZLastMsgRead THEN _
  1042.            GOTO 1935
  1043.      IF NOT ShowActive THEN _
  1044.         GOTO 1930
  1045.      MailReported = ZTrue
  1046.      FirstNew = (ZWasA > ZLastMsgRead)
  1047.      IF FirstNew THEN _
  1048.         MsgCt = 0 : _
  1049.         CALL SkipLine (1) : _
  1050. * ------[ first line different ]------
  1051.    X = 12 : _         'Pe 01/17/93
  1052.      Gosub 47000 : _     'Pe 01/17/93
  1053.         CALL QuickTPut1 (OutTxt$) _
  1054.      ELSE IF FirstOld THEN _
  1055.              CALL SkipLine (1) : _
  1056.    X = 13 : _         'Pe 01/17/93
  1057.      Gosub 47000 : _     'Pe 01/17/93
  1058.              CALL QuickTPut1 (OutTxt$) : _
  1059.              FirstOld = ZFalse
  1060.      ShowActive = NOT FirstNew
  1061. * REPLACING old line(s) by new
  1062. 1950 IF NOT MailReported THEN _
  1063. * ------[ first line different ]------
  1064.       X = 234 : _        'Pe 01/26/93
  1065.         Gosub 47000 : _  'Pe 01/26/93
  1066.         ZOutTxt$ = "Sorry, " + _
  1067.              ZFirstName$ + _
  1068.              ", No " + ZUserIn$(0) + OutTxt$ : _
  1069.         GOSUB 12975
  1070.      IF MsgsFromUser = 0 OR NOT ZMsgReminder THEN _
  1071.         GOTO 1961
  1072.      IF ActionFlag THEN _
  1073.         GOTO 1961
  1074.       X = 220        'Pe 01/26/93
  1075.         Gosub 47000   'Pe 01/26/93
  1076.      ZOutTxt$ = OutTxt$
  1077.      GOSUB 12976
  1078. * REPLACING old line(s) by new
  1079. 1960 WasK = 1
  1080.      FOR MsgCt = 1 TO MsgsFromUser
  1081.         ZOutTxt$ = MID$(WasA1$,WasK,5)
  1082.         WasK = WasK + 5
  1083.         GOSUB 12978
  1084.         IF MsgCt MOD 15 = 0 THEN _
  1085.            CALL SkipLine (1) : _
  1086.            CALL AskMore ("",ZTrue,ZTrue,WasX,ZTrue)
  1087.      NEXT
  1088.      WasA1$ = ""
  1089.      CALL SkipLine (1)
  1090.      IF ZUserSecLevel >= ZOptSec(9) THEN _
  1091. * ------[ first line different ]------
  1092.    X = 14 : _         'Pe 01/17/93
  1093.      Gosub 47000 : _     'Pe 01/17/93
  1094.         CALL QuickTPut1 (OutTxt$)
  1095. * REPLACING old line(s) by new
  1096. 2001 IF (LowMsgNumber > 0 AND ActiveMessages >= MaxMsgs) _
  1097.         OR HighMsgNumber >= 9999 THEN _
  1098.         IF ZActiveMessageFile$ = ZMainMsgFile$ AND _
  1099.            ActiveMessages = 1 THEN _
  1100.            GOTO 5300 _
  1101. * ------[ first line different ]------
  1102.         ELSE X = 221 : _        'Pe 01/26/93
  1103.         Gosub 47000 : _  'Pe 01/26/93
  1104.          ZOutTxt$ = OutTxt$ : _
  1105.              GOSUB 12975 : _
  1106.              GOTO 3650
  1107. * REPLACING old line(s) by new
  1108. 2010 IF NOT QuotedReply THEN _
  1109. * ------[ first line different ]------
  1110.         ZLinesInMsg = 0 : _                                          ' KG011201
  1111.         WasL = 0 : _
  1112.         WasL = 0 : _
  1113.         WasX = 0 : _
  1114.         REDIM ZOutTxt$(ZMsgDim)
  1115.      IF ZGetExtDesc THEN _
  1116.         GOTO 2100
  1117.      GOSUB 1893
  1118.      RcvrRecNum = 0
  1119. * REPLACING old line(s) by new
  1120. * ------[ first line different ]------
  1121. 2065 X = 222         'Pe 01/26/93
  1122.      Gosub 47000     'Pe 01/26/93
  1123.       ZOutTxt$ = OutTxt$ + ZPressEnter$                          'ER052601
  1124.      CALL ColorPrompt (ZOutTxt$)                                 'ER052601
  1125.      ZSubParm = 5                                                'ER052601
  1126.       Call TPut                                                  'ER052601
  1127.  IF Subject$ <> "" THEN _
  1128.       X = 223 : _        'Pe 01/26/93
  1129.         Gosub 47000 : _  'Pe 01/26/93
  1130.         ZOutTxt$ = OutTxt$ + _
  1131.              Subject$ + _
  1132.              " to" _
  1133.      ELSE ZOutTxt$ = "Subject"
  1134.      ZMacroMin = 99
  1135.      ZParseOff = ZTrue
  1136.      GOSUB 12932
  1137.      IF LEN(ZUserIn$) > 25 THEN _
  1138.       X = 24 : _        'Pe 01/26/93
  1139.         Gosub 47000 : _  'Pe 01/26/93
  1140.         ZOutTxt$ = ZFirstName$ + OutTxt$ : _      'Pe 05/29/92
  1141.         GOSUB 12979 : _
  1142.         GOTO 2065
  1143.      IF ZWasQ = 0 THEN _
  1144.         IF Subject$ <> "" THEN _
  1145.            RETURN _
  1146.         ELSE GOSUB 2435 : _
  1147.              IF ZYes THEN _
  1148.                 RETURN 5160 _
  1149.              ELSE GOTO 2065
  1150.      Subject$ = ZUserIn$
  1151.      CALL AllCaps (Subject$)
  1152.      OrigSubject$ = Subject$
  1153.      RETURN
  1154. '
  1155. ' *****  ENTER MAIN BODY OF MESSAGE  ****
  1156. '
  1157. '
  1158. * REPLACING old line(s) by new
  1159. * ------[ first line different ]------
  1160. 2100  IF ZGetExtDesc Then Goto 2120  'Pe021793
  1161.  CALL SaveUserActivity("M", ZNodeRecIndex, ZFalse)               ' CHAT0813
  1162.      IF NOT ZFullScreenEditor Then 
  1163.       X = 235        'Pe 01/26/93
  1164.         Gosub 47000  'Pe 01/26/93
  1165.        ZOutTxt$ = OutTxt$
  1166.         GOSUB 12930
  1167.           IF NOT ZYes THEN _
  1168.         GOTO 2120
  1169.       End If
  1170. * INSERTING new line(s)
  1171. 2110 'IF ZGetExtDesc Then  'Pe022793
  1172.      '     ZOutTxt$(1) = "Description for "+ ZFileNameHold$ + " = "+ ZDesc$
  1173.      '     ZLinesInMsg = ZLinesInMsg + 1 
  1174.      '     End IF
  1175.      CALL Ansied (MsgTo$, OrigSubject$, MsgLockLines)
  1176.      I = ZSubParm
  1177.      CALL SkipLine (1)
  1178.      IF I = -2 THEN      ' Sleep Disconnect
  1179.         GOTO 10590
  1180.      ELSEIF I = -1 THEN  ' Lost Carrier
  1181.         GOTO 10595
  1182.      ELSEIF I = 1 THEN   ' Save Message
  1183.         GOTO 3400
  1184.      ELSEIF I = 2 THEN   ' Abort Message
  1185.         GOTO 2430
  1186.      END IF
  1187. 2120  IF ZGetExtDesc Then  'Pe022793
  1188.        Call QuickTput1(ZCrLf$ + ZCrLF$ +"Desc for "+ZFileNameHold$ + " = " + ZDesc$)
  1189.       End IF
  1190.       ZOutTxt$ = "Enter Your " + _
  1191.           ZMsgHeader$ + _
  1192.           STR$(ZMaxMsgLines) + _
  1193.           " Lines max" + _
  1194.           ZPressEnter$
  1195.      GOSUB 12975
  1196.      GOSUB 3200
  1197. * REPLACING old line(s) by new
  1198. 2127 IF ZRemoteEcho OR ZLocalUser THEN _
  1199. * ------[ first line different ]------
  1200.         ZOutTxt$ = RIGHT$(STR$(ZLinesInMsg),3) + _           'DD022301
  1201.              ": " + _
  1202.              ZOutTxt$(ZLinesInMsg) _
  1203.      ELSE ZOutTxt$ = ZOutTxt$(ZLinesInMsg)
  1204.      GOSUB 12978
  1205.      CALL LineEdit(ZLinesInMsg,ZRightMargin + 1)
  1206.      IF ZWaitExpired THEN _
  1207.         GOTO 2300 _
  1208.      ELSE IF ZSubParm = -1 THEN _
  1209.              GOTO 10595
  1210.      CALL FindFKey
  1211.      IF ZSubParm < 0 THEN _
  1212.         GOTO 202
  1213.      IF ZOutTxt$(ZLinesInMsg) = "" THEN _
  1214.         ZLinesInMsg = ZLinesInMsg - 1 : _
  1215.         GOTO 2300
  1216. * REPLACING old line(s) by new
  1217. * ------[ first line different ]------
  1218. 2302 X = 236        'Pe 01/26/93
  1219.      Gosub 47000  'Pe 01/26/93
  1220.        ZOutTxt$ = "A)bort, " + LEFT$("B)atch import, ",-15 * (ZSysop OR ZLocalUser)) + _
  1221.                 OutTxt$
  1222.      CALL TopPrompt
  1223.       X = 237       'Pe 01/26/93
  1224.        Gosub 47000  'Pe 01/26/93
  1225.      ZOutTxt$ = OutTxt$
  1226.      CALL TopPrompt
  1227. * REPLACING old line(s) by new
  1228. * ------[ first line different ]------
  1229. 2315 X = 238       'Pe 01/26/93
  1230.      Gosub 47000  'Pe 01/26/93
  1231.       ZOutTxt$ = "Edit Sub-function <A," + _
  1232.           LEFT$("B,",-2 * (ZSysop OR ZLocalUser)) + _
  1233.           OutTxt$
  1234.      GOSUB 12930
  1235.      IF ZWasQ = 0 THEN _
  1236.         GOTO 2315
  1237.      CALL AraAllCaps (ZUserIn$(),ZAnsIndex)
  1238.      ZWasZ$ = ZUserIn$(ZAnsIndex)
  1239. * REPLACING old line(s) by new
  1240. * ------[ first line different ]------
  1241. 2520 X = 239       'Pe 01/26/93
  1242.      Gosub 47000  'Pe 01/26/93
  1243.      Temp$ = OutTxt$ + STR$(Mark1) + ")"
  1244.      CALL ChangeInt (ZFalse,Temp$,0,Mark1,ZLinesInMsg)
  1245.      IF ZWasQ = 0 THEN _
  1246.         Mark2 = Mark1 _
  1247.      ELSE Mark2 = ZTestedIntValue
  1248.      CALL SkipLine(1)
  1249.      GOTO 2530
  1250. * REPLACING old line(s) by new
  1251. * ------[ first line different ]------
  1252. 2530 ZOutTxt$ = "Delete lines " + STR$(Mark1) + "-" + _
  1253.         MID$(STR$(Mark2),2) + " (Y,[N],L)ist)"
  1254.      GOSUB 12930
  1255.      Temp$ = ZUserIn$(ZAnsIndex)
  1256.      CALL AllCaps(Temp$)
  1257.      IF Temp$ = "L" THEN GOTO 2522
  1258.      IF NOT ZYes THEN _
  1259.         ZOutTxt$ = "NOT Deleted" : _
  1260.         GOSUB 12979 : _
  1261.         GOTO 2555
  1262. * REPLACING old line(s) by new
  1263. * ------[ first line different ]------
  1264. 2840 ZOutTxt$ = RIGHT$(STR$(ZLinesInMsg),3) + _              'Pe022193
  1265.           ": " + ZOutTxt$(ZLinesInMsg)
  1266.      GOSUB 12978
  1267.      CALL LineEdit(ZLinesInMsg,ZRightMargin + 1)
  1268.      IF ZOutTxt$(ZLinesInMsg) = "" THEN _
  1269.         GOTO 2920
  1270. * REPLACING old line(s) by new
  1271. 3020 IF ZGetExtDesc THEN WasL = 1
  1272. * ------[ first line different ]------
  1273.      FOR WasX = WasL TO ZLinesInMsg 
  1274.         CALL AskMore ("",ZTrue,ZTrue,WasXX,ZFalse)
  1275.         IF ZNo OR ZRet THEN _
  1276.            WasX = ZLinesInMsg + 1 _
  1277.         ELSE ZOutTxt$ = RIGHT$(STR$(WasX),3) + _           'Pe022193
  1278.                   ": " + _
  1279.                   ZOutTxt$(WasX) : _
  1280.              GOSUB 12979
  1281.      NEXT
  1282.      RETURN
  1283. '
  1284. ' *****  CHANGE MARGIN WIDTH   ****
  1285. '
  1286. * REPLACING old line(s) by new
  1287. 3405 IF ZSysopMsg THEN _
  1288.         MsgPswd$ = "^READ^" _
  1289.      ELSE Temp$ = MsgPswd$ : _
  1290.           CALL MsgProt (MsgTo$,Found,MsgPswd$) : _
  1291.           IF MsgPswd$ = "" THEN _
  1292.              MsgPswd$ = Temp$ : _
  1293. * ------[ first line different ]------
  1294.               IF ZFullScreenEditor THEN _      'lk 03/23/92
  1295.              GOTO 2110 _                   'lk 03/23/92
  1296.           ELSE GOTO 2300                   'lk 03/23/92
  1297.      SaveReplyStatus = ZReply
  1298.      ZReply = ZTrue
  1299.      ZSysopMsg = ZFalse
  1300.      ZReply = SaveReplyStatus
  1301.      GOSUB 4910
  1302.      MsgRecSave$ = ZMsgRec$
  1303.      MsgCorrected = ZFalse
  1304.      GOSUB 23100
  1305.      ZWasSL = 0
  1306.      ZWasN$ = ""
  1307.      ZLastIndex = 0
  1308.      HighMsgNumber = HighMsgNumber + 1
  1309. '
  1310. '
  1311. 'find out if toss log has been opened for node
  1312. '
  1313. '
  1314. * INSERTING new line(s)
  1315. 3406 IF ZRBBSName$ = ZOrigRBBSName$ THEN _  'lk 022092
  1316.      GOTO 3410     
  1317. TossLog$ = "Toss"+ZNodeFileID$+".LOG"
  1318. TossFile$ = ZRBBSName$
  1319. CALL FindIt (Tosslog$)    'LK 033191
  1320.      IF NOT ZOK THEN _     'LK 033191
  1321.       GOTO 3407 
  1322.       CALL OpenWork (2,TossLog$)
  1323.       Found = ZFalse
  1324.       GOSUB 3408    
  1325.       IF Found THEN _
  1326.       GOTO 3410
  1327.       GOTO 3409
  1328. 3407 CALL OpenOutW (TossLog$)    'LK 033191
  1329.      PRINT #2, TossFile$         'Lk 021992
  1330.      CLOSE 2
  1331.      GOTO 3410
  1332. 3408  IF EOF(2) THEN _
  1333.          RETURN
  1334.       INPUT #2,TossList$
  1335.       IF TossFile$ <> TossList$ THEN _
  1336.          GOTO 3408
  1337.       Found = ZTrue
  1338.       RETURN
  1339. 3409 CALL OpenWorkA (TossLog$)
  1340.      CALL PrintWorkA (TossFile$)  'Lk 021992
  1341.      CLOSE 2
  1342. * REPLACING old line(s) by new
  1343. 3530 Temp = ZNextMsgRec
  1344.      ZNextMsgRec = Temp + VAL(ZWasN$)
  1345.      LSET ZMsgRec$ = MsgRecSave$
  1346.      GOSUB 24000
  1347.      GET 1,Temp
  1348.      ZMsgPtr(ActiveMessages,1) = Temp
  1349.      ZMsgPtr(ActiveMessages,2) = HighMsgNumber
  1350.      LSET ZMsgRec$ = MsgNum$ + _
  1351.                      MsgFrom$ + _
  1352.                      MsgTo$ + _
  1353.                      ZCurDate$ + _
  1354.                      Subject$ + _
  1355.                      MsgPswd$ + _
  1356.                      ZActiveMessage$ + _
  1357.                      ZWasN$ + _
  1358.                      SPACE$(4 - LEN(ZWasN$)) + _
  1359.                      MKI$(SecForMsg)
  1360. ' ---[ write out list of people msg is to ]---
  1361.      UserFileIndexSave = ZUserFileIndex
  1362.      UserRecordHold$ = ZUserRecord$
  1363.      CALL OpenWork (2,ZNodeWorkFile$)
  1364.      WHILE NOT EOF(2)
  1365.         CALL ReadParms (ZWorkAra$(),2,1)
  1366.         MID$(ZMsgRec$,37,22) = LEFT$(ZWorkAra$(1)+ SPACE$(22),22)
  1367.         RcvrRecNum = VAL(ZWorkAra$(2))
  1368.         PUT 1,Temp
  1369.         Temp = Temp + 1
  1370.         NumRecs = NumRecs - 1
  1371. ' ---[ notify receiver that has new mail waiting ]---
  1372.         CALL SetUserFlag (RcvrRecNum, 512, "mail")
  1373.      WEND
  1374.      ZWasN$ = ""
  1375.      ZOutTxt$ = "Adding new msg #" + _
  1376.           STR$(HighMsgNumber)
  1377.      IF NOT ZLocalUser THEN _
  1378.         CALL UpdtCalr (ZOutTxt$,1)
  1379.      GOSUB 12978
  1380.      NumDots = 0
  1381.      FOR WasJ = 1 TO ZLinesInMsg
  1382. * ------[ first line different ]------
  1383.         CALL MarkTimeB (NumDots)
  1384.         ZWasN$ = ZWasN$ + _
  1385.              ZOutTxt$(WasJ)
  1386.         IF LEN(ZWasN$) > 127 THEN _
  1387.            LSET ZMsgRec$ = ZWasN$ : _
  1388.            PUT 1 : _
  1389.            ZWasN$ = MID$(ZWasN$,129)
  1390. * REPLACING old line(s) by new
  1391. 3650 QuotedReply = ZFalse
  1392.      MsgLockLines = 0
  1393.      IF ZReply OR MsgFwd THEN _
  1394.         ZReply = ZFalse : _
  1395.         ZAnsIndex = SaveAnsIndex : _
  1396.         GOTO 5344
  1397.      IF ZGetExtDesc THEN _
  1398.         ZLinesInMsg = 0
  1399. * ------[ first line different ]------
  1400. If ZLogOff$ = "G" Then
  1401. Getout = Ztrue
  1402. ZLogoff$ = "L"
  1403. Goto 10560
  1404. End If                                              'Pe 02/03/90
  1405.      RETURN
  1406.  
  1407. '
  1408. ' ****  K - COMMAND FROM MAIN MENU (KILL MESSAGE)  ***
  1409. '
  1410. * REPLACING old line(s) by new
  1411. 3930 ZOutTxt$ = "Msg #(s) to Kill" + LEFT$(", M)arked",-9*(ZMarkedMsgs$ <> "")) + ZPressEnterExpert$
  1412.      GOSUB 12932
  1413.      IF ZWasQ = 0 THEN _
  1414.         RETURN
  1415.      GOSUB 1893
  1416. * ------[ first line different ]------
  1417.      ZWasZ$ = ZUserIn$(ZAnsIndex)
  1418.      CALL UnMarkItems (ZMarkedMsgs$,ZAnsIndex,ZLastIndex,Found,ZTrue)
  1419. * REPLACING old line(s) by new
  1420. 3950 GOSUB 5344
  1421. * ------[ first line different ]------
  1422.  CALL KillMsg (MsgToKill,ActiveMessages,ZconfName$)   'Pe 02/03/90
  1423. * REPLACING old line(s) by new
  1424. 4240 CALL Toggle(9)
  1425.      RETURN
  1426. * ------[ first line different ]------
  1427. * INSERTING new line(s)
  1428. 4275 'IF NOT ZConfMode then Return   'Tom Hazle mod
  1429.    If ZUserSecLevel < ZOptSec(12) Then Return          'Pe 08/30/92
  1430.       X = 240       'Pe 01/26/93
  1431.        Gosub 47000  'Pe 01/26/93
  1432.    ZOutTxt$ = OutTxt$
  1433.      GOSUB 12999                            'JABASKMAIL
  1434. 4279 IF NOT ZNO THEN _                            'JABASKMAIL
  1435.      ZLastIndex = 2 : _               'Pe 11/05/89
  1436.      ZAnsIndex = 1 : _                'Pe 11/05/89
  1437.      ZWasQ = 2 : _                    'Pe 11/05/89
  1438.      ZUserIn$(2) = "*" :_             'Pe 11/05/89
  1439.      GOTO 4330                        'Pe 11/05/89
  1440.      RETURN                            'JABASKMAIL
  1441. '
  1442. '
  1443. '**** T)ype ASCII file *****   Pe/10/22/89
  1444. '
  1445. * REPLACING old line(s) by new
  1446. * ------[ first line different ]------
  1447. 4320     ZLastIndex = Q 
  1448.          ZAnsIndex = 1  
  1449.          CALL TypeFile 
  1450.          RETURN
  1451.  
  1452. '
  1453. ' ****  R - COMMAND FROM MAIN MENU (READ MESSAGES)  ****
  1454. '
  1455. * REPLACING old line(s) by new
  1456. 4330 IF LinkNext THEN _
  1457.         LinkNext = ZFalse : _
  1458.         GOSUB 1893 : _
  1459.         GOSUB 5344 : _
  1460.         NumMsgsSelected = 1 : _
  1461.         ZAnsIndex = 1 : _
  1462.         MsgIndex = 1 : _
  1463.         ZLastIndex = 1 : _
  1464.         CanKill = (ZSysop OR ZUserSecLevel >= ZSecKillAny) : _
  1465.         IF LinkForward THEN _
  1466.            CurMsg = ZLastMsgRead + 1 : _
  1467.            GOTO 4450 _
  1468.         ELSE CurMsg = HighMsgNumber : _
  1469.              GOTO 4490
  1470.      QuickScanMsgs = ZFalse
  1471.      ReadMsgs = ZTrue
  1472.      Forward = ZFalse
  1473.      ZGlobalRead = ZFalse
  1474.      HiLiteRec = -1
  1475.      ScanMsgs = ZFalse
  1476.      MsgStart = 6
  1477. * ------[ first line different ]------
  1478. '     MsgEnd = 100
  1479.       MsgEnd = 200
  1480.      IF ZLocalUserMode OR NOT ZLocalUser THEN _
  1481.         IF ReadMsgIn$ <> ZActiveMessageFile$ THEN _
  1482.            ReadMsgIn$ = ZActiveMessageFile$ : _
  1483.            CALL UpdtCalr ("Read Messages in " + ReadMsgIn$,1)
  1484.      GOSUB 1300
  1485.      GOTO 4350
  1486. '
  1487. ' ****  S - COMMAND FROM MAIN MENU (SCAN MESSAGE HEADERS)  ***
  1488. '
  1489. * REPLACING old line(s) by new
  1490. 4345 QuickScanMsgs = ZFalse
  1491.      ReadMsgs = ZFalse
  1492.      ScanMsgs = ZTrue
  1493.      MsgStart = 6
  1494. * ------[ first line different ]------
  1495. '     MsgEnd = 100
  1496.      MsgEnd = 200
  1497.      SecIndex = 0
  1498. '
  1499. ' ** MESSAGE READ MAINLINE (QUICK SCAN, READ & SCAN) ALL USE THIS ROUTINE *
  1500. '
  1501. * REPLACING old line(s) by new
  1502. 4360 ZWasLG$(11) = ZWasZ$
  1503.      NumMsgsSelected = ZLastIndex
  1504.      MsgIndex = ZAnsIndex
  1505.      ZLastIndex = 0
  1506.      AddressedToUser = ZFalse
  1507.      ToRequested = ZFalse
  1508.      FromRequested = ZFalse
  1509.      LinkNext = ZFalse
  1510. * ------[ first line different ]------
  1511.      CALL SaveUserActivity("M", ZNodeRecIndex, ZFalse)               ' CHAT0813
  1512. * REPLACING old line(s) by new
  1513. 4380 WasA1$ = "Msg #" + _
  1514.            STR$(LowMsgNumber) + _
  1515.            "-" + _
  1516.            MID$(STR$(ZMsgPtr(ActiveMessages,2)),2) + _
  1517.            " (H)lp,S)ince,L)ast" + _
  1518.            LEFT$(",G)lobal",8*(ZLinkedConf$ ="" OR ZGlobalRead)+8)
  1519. * ------[ first line different ]------
  1520.      CALL SkipLine (-QuickScanMsgs)                                  ' KG062301
  1521.      IF ZGlobalRead THEN _
  1522.    X = 15 : _         'Pe 01/17/93
  1523.      Gosub 47000 : _     'Pe 01/17/93
  1524.         CALL QuickTPut1 (OutTxt$)
  1525.      IF AddressedToUser OR ToRequested OR FromRequested THEN _
  1526.         ZWasY$ = LEFT$("TO",-2*(ToRequested OR AddressedToUser)) + _
  1527.              LEFT$("/",-AddressedToUser) + _
  1528.              LEFT$("FROM",-4*(FromRequested OR AddressedToUser)) : _
  1529.    X = 16 : _         'Pe 01/17/93
  1530.      Gosub 47000 : _     'Pe 01/17/93
  1531.         CALL QuickTPut (OutTxt$+ " "+ZWasY$+ " you",0) : _
  1532.    X = 17 : _         'Pe 01/17/93
  1533.      Gosub 47000 : _     'Pe 01/17/93
  1534. Call QuickTput1 (OutTxt$) _
  1535.      ELSE WasA1$ = WasA1$ + ",T)o,F)rom,M)" : _
  1536.           IF ReadMsgs AND ZMarkedMsgs$ <> "" THEN _
  1537.              WasA1$ = WasA1$ + "arked" _
  1538.           ELSE WasA1$ = WasA1$ + "ine"
  1539.      IF SearchString$ = "" THEN _
  1540.         WasA1$ = WasA1$ + _
  1541.              ", text" _
  1542.      ELSE  X = 16 : _         'Pe 01/17/93
  1543.      Gosub 47000 : _     'Pe 01/17/93
  1544.  CALL QuickTPut (OutTxt$ +" with text " + SearchString$,0 ) : _
  1545.    X = 17 : _         'Pe 01/17/93
  1546.      Gosub 47000 : _     'Pe 01/17/93
  1547. Call QuickTput1 (OutTxt$)
  1548. * REPLACING old line(s) by new
  1549. 4418 ZWasA = INSTR("FfTt",ZUserIn$(ZAnsIndex))
  1550.      IF ZWasA > 0 THEN _
  1551.         ToRequested = (ZWasA > 2) : _
  1552.         FromRequested = (ZWasA < 3) : _
  1553.         GOTO 4370
  1554.      IF CurMsg = 0 THEN _
  1555.         IF SearchHeader$ <> "" THEN _
  1556.            GOTO 4370 _
  1557.         ELSE SearchString$ = ZUserIn$(ZAnsIndex) : _
  1558.              SearchCt = 0 : _
  1559.              CALL AllCaps (SearchString$) : _
  1560.              CALL Remove (SearchString$,CHR$(34) + CHR$(39)) : _
  1561.              SearchHeader$ = SearchString$ : _
  1562.              SubInHeader$ = SearchHeader$ : _
  1563.              GOTO 4370
  1564. * ------[ first line different ]------
  1565.      CALL SkipLine (-ReadMsgs)                                       ' KG062301
  1566. * REPLACING old line(s) by new
  1567. * ------[ first line different ]------
  1568. 4552 IF ZMsgDimIndex = WasXXX THEN _
  1569.         CALL Carrier : _
  1570.         GOTO 4637
  1571. * REPLACING old line(s) by new
  1572. 4563   CurMsg = VAL(MID$(ZMsgRec$,2,4))
  1573. * ------[ first line different ]------
  1574.        PNumRecs=val(mid$(ZMsgRec$,117,4))   ' RS Xport
  1575.        IF ToRequested THEN _
  1576.           IF NOT MsgToCaller THEN _
  1577.              GOTO 4629
  1578.        IF FromRequested THEN _
  1579.           IF NOT MsgFromCaller THEN _
  1580.              GOTO 4629
  1581.        IF AddressedToUser AND NOT UserInHeader THEN _
  1582.           GOTO 4629
  1583.        WasX$ = MID$(ZMsgRec$,121,2)
  1584.        IF WasX$ = "  " THEN _
  1585.           MsgSec = ZMinLogonSec _
  1586.        ELSE MsgSec = CVI(WasX$)
  1587.        IF ZUserSecLevel < MsgSec THEN _
  1588.           GOTO 4629
  1589. * REPLACING old line(s) by new
  1590. 4581   IF MID$(ZMsgRec$,116,1) = ZDeletedMsg$ THEN _
  1591.           GOTO 4630
  1592. * ------[ first line different ]------
  1593.        ZJustSearching = ZFalse      'Pe 05/30/91
  1594.        IF SearchHeader$ <> "" THEN _
  1595.           ZFF = INSTR(ZMsgRec$,SearchHeader$) : _
  1596.           IF ZFF >= MsgStart AND ZFF <= MsgEnd THEN _
  1597.              HiLitePos = ZFF : _
  1598.              SearchCt = 0 : _
  1599.              GOTO 4582 _
  1600.           ELSE IF ReadMsgs AND SearchString$ <> "" THEN _
  1601.                   ZJustSearching = ZTrue : _    'Pe 05/30/91
  1602.                   GOTO 4582 _
  1603.                ELSE GOTO 4629
  1604. * REPLACING old line(s) by new
  1605. 4600   IF ScanMsgs THEN _
  1606.           GOSUB 8020 : _
  1607.           GOTO 4630
  1608. * ------[ first line different ]------
  1609.        IF NOT ZJustSearching THEN _
  1610.           GOSUB 8000 : _
  1611.           IF QuotedReply THEN _
  1612.              QuotedReply = ZFalse : _
  1613.              GOTO 4602
  1614.        IF ZRet THEN _
  1615.           GOTO 4630
  1616.        CanChangeSec = (ZUserSecLevel => ZSecChangeMsg)
  1617.        ShowKill =  - ((ZUserSecLevel >= ZOptSec(9)) AND (UserInHeader OR CanKill))
  1618.      If ZNewUserDgs = ZTrue then ShowKill= ZFalse  'Dgs-NEw
  1619.        IF ZExpertUser THEN _
  1620.           WasA1$ = ",H" + _
  1621.                 MID$(",R",1,- (ZUserSecLevel >= ZOptSec(5)) * 2) + _
  1622.                 ",T,M,=,+,-" + _
  1623.                 MID$(",F",1,- (UserInHeader OR CanChangeSec) * 2) + _
  1624.                 MID$(",K",1,ShowKill * 2) + _
  1625.                 MID$(",U",1,- (ZUserSecLevel >= ZOptSec(54)) * 2) + _
  1626.                 MID$(",S",1, - CanChangeSec * 2) + _
  1627.                 MID$(",X",1,-(ZUserSecLevel >= ZOptSec(54)) * 2) : _      'Pe MsgXport
  1628.           GOTO 4601
  1629.        GOSUB 4617
  1630. * REPLACING old line(s) by new
  1631. * ------[ first line different ]------
  1632. 4601   ' ZTurboKey = -ZTurboKeyUser
  1633.        IF ZJustSearching OR NOT JustReplied THEN _
  1634.           GOTO 4602
  1635.        JustReplied = ZFalse
  1636.        CALL AskMore (WasA1$,ZTrue,ZFalse,ZAnsIndex,ZFalse)
  1637.        CALL SkipLine (1)
  1638.        IF ZNo THEN _
  1639.           RETURN
  1640.        CALL AllCaps (ZUserIn$(1))
  1641.        ZReply = (ZReply OR ZUserIn$(1) = "R")
  1642.        IF ZUserIn$(1) <> "=" THEN _
  1643.           GOTO 4605
  1644.        CALL SkipLine (1)
  1645. * REPLACING old line(s) by new
  1646. * ------[ first line different ]------
  1647. 4603  IF NOT ZJustSearching THEN _               'Pe 02/05/90
  1648.    X = 18 : _         'Pe 01/17/93
  1649.      Gosub 47000 : _     'Pe 01/17/93
  1650.       CALL QuickTPut (ZFG2$+ OutTxt$ + ZEmphasizeOff$,0)
  1651.        GOSUB 9000
  1652.        JustReplied = ZFalse
  1653.        DontPrint = ZFalse
  1654.        IF ZJustSearching THEN _
  1655.           GOTO 4629
  1656.        IF ZAnsIndex > NumMsgsSelected THEN _
  1657.           GOTO 4650
  1658.        CALL SkipLine (1)
  1659.        GOSUB 41000
  1660.        ZKillMessage = ZFalse
  1661.        ZReply = ZFalse
  1662. * REPLACING old line(s) by new
  1663. * ------[ first line different ]------
  1664. 4605   ON INSTR(" FUST+-KRH?=MX",LEFT$(ZUserIn$(1),1)) GOTO _
  1665.           4620,4606,4607,4608,4609,4610,4610,4611,4621,4612,4614,4615,4652,4651 'Pe MsgXport
  1666.        GOTO 4620
  1667. * REPLACING old line(s) by new
  1668. 4606   IF NOT (UserInHeader OR CanChangeSec) THEN _   ' Forward
  1669. * ------[ first line different ]------
  1670.           GOTO 4620
  1671.        MsgFwd = ZTrue
  1672.        GOTO 4623
  1673. * REPLACING old line(s) by new
  1674. * ------[ first line different ]------
  1675. 4611   IF ((UserInHeader and NOT ZNewUserDgs) OR CanKill) THEN _     ' Kill Dgs-new
  1676.          IF ZUserSecLevel >= ZOptSec(9) THEN _
  1677.             CALL PutMsgAttr : _
  1678.             MsgToKill = CurMsg : _
  1679.             Temp = ZWasQ : _
  1680.             GOSUB 3950 : _
  1681.             CALL GetMsgAttr : _
  1682.             GOTO 4629 _
  1683.          ELSE ZViolation$ = "MORE KILL" : _
  1684.               GOSUB 1380 : _
  1685.               GOTO 4629
  1686.        GOTO 4620
  1687. * REPLACING old line(s) by new
  1688. 4617   WasA1$ = ",H)lp" + _
  1689. * ------[ first line different ]------
  1690.                 MID$(",R)ply",1, - (ZUserSecLevel >= ZOptSec(5)) * 6) + _ ' PE040501
  1691.                 ",T)hrd,M)rk,=,+,-" + _
  1692.                 MID$(",F)wd",1, - (UserInHeader OR CanChangeSec) * 5) + _
  1693.                 MID$(",K)ill",1, ShowKill * 6) + _
  1694.                 MID$(",U)sr",1,- (ZUserSecLevel >= ZOptSec(54)) * 6) + _
  1695.                 MID$(",S)ec",1, - CanChangeSec * 5)+ _
  1696.                 MID$(",X)port",1,-(ZUserSecLevel >= ZOptSec(54)) * 7)   'PE MsgXport
  1697.        RETURN
  1698. * REPLACING old line(s) by new
  1699. 4624   QuotedReply = ZTrue
  1700.        ZLinesInMsg = ZLinesInMsg - 1
  1701.        IF HiLitedLine > 0 THEN _
  1702.           ZOutTxt$(HiLitedLine) = ZOutTxt$(0) : _
  1703.           HiLitedLine = 0
  1704.        IF MsgFwd THEN _
  1705.           TempRightMargin = ZRightMargin _
  1706.        ELSE _
  1707.           TempRightMargin = ZRightMargin - 2
  1708.        CALL WordWrap (TempRightMargin,ZLinesInMsg,ZOutTxt$())
  1709.        IF ZLinesInMsg > ZMsgDim THEN _
  1710.           ZLinesInMsg = ZMsgDim : _
  1711. * ------[ first line different ]------
  1712.    X = 19 : _         'Pe 01/17/93
  1713.      Gosub 47000 : _     'Pe 01/17/93
  1714.           CALL QuickTPut1 (OutTxt$ + STR$(ZMsgDim) + " for editing!")
  1715.        IF MsgFwd THEN GOTO 4625
  1716.        FOR WasX = 1 TO ZLinesInMsg
  1717.           IF LEFT$(ZOutTxt$(WasX),1) = ">" THEN _
  1718.              ZOutTxt$(WasX) = ">" + ZOutTxt$(WasX) _
  1719.           ELSE ZOutTxt$(WasX) = "> " + ZOutTxt$(WasX)
  1720.        NEXT
  1721.  
  1722. * REPLACING old line(s) by new
  1723. 4626   ZWasZ$ = "L"
  1724.        WasL = 1
  1725. * ------[ first line different ]------
  1726. '************************* AnsiEd244 Mods ***********************
  1727.  IF ZFullScreenEditor THEN
  1728.       GOSUB 2110
  1729.      GOTO 4628
  1730.   End IF
  1731. '
  1732. IF NOT ZFullScreenEditor Then
  1733.       X = 235       'Pe 01/26/93
  1734.        Gosub 47000  'Pe 01/26/93
  1735.    ZOutTxt$ = OutTxt$
  1736.     GOSUB 12930
  1737.       IF ZYES THEN 
  1738.        GOSUB 2110
  1739.        ELSE
  1740.           IF ZLinesInMsg >= ZMaxMsgLines THEN _
  1741.    X = 20 : _         'Pe 01/17/93
  1742.      Gosub 47000 : _     'Pe 01/17/93
  1743.              CALL QuickTPut (OutTxt$ + _
  1744.                          STR$(ZMaxMsgLines) + " Lines...",1)
  1745.        IF NOT MsgFwd THEN _
  1746.    X = 21 : _         'Pe 01/17/93
  1747.      Gosub 47000 : _     'Pe 01/17/93
  1748.        CALL QuickTPut1 (OutTxt$)
  1749.        GOSUB 3200
  1750.        GOSUB 3020
  1751.        GOSUB 2300
  1752.        End IF
  1753.       End If
  1754.        GOTO 4628
  1755. * REPLACING old line(s) by new
  1756. * ------[ first line different ]------
  1757. 4630 MsgTemp$ = ",M)ark, #(s) to read"                       ' DD092102
  1758.      CALL AskMore (MsgTemp$,ZTrue,ZTrue,WasXX,ZFalse)        ' DD092102
  1759.      IF ZMsgDimIndex = EndingMsgIndex AND _                  ' DD092102
  1760.         NOT ReadMsgs THEN _                                  ' DD092102
  1761.        CALL SkipLine (-QuickScanMsgs) : _                   ' DD092102
  1762.        CALL AskMore (MsgTemp$,ZTrue,ZFalse,WasXX,ZFalse) : _' DD092102
  1763.    X = 22 : _         'Pe 01/17/93
  1764.      Gosub 47000 : _     'Pe 01/17/93
  1765.        CALL QuickTPut (OutTxt$,0)
  1766.       IF ZWasQ = 0 OR ZYes THEN _
  1767.          GOTO 4631
  1768.        IF ZNo THEN _
  1769.           RETURN
  1770.        IF ZSubParm = -1 THEN _
  1771.           RETURN 10595
  1772.        IF ZRet THEN _
  1773.           RETURN
  1774.        ZWasZ$ = ZUserIn$(1)
  1775.        CALL AllCaps (ZWasZ$)
  1776.        IF ZWasZ$ = "M" THEN _
  1777.           ZLastIndex = ZWasQ : _
  1778.           ZAnsIndex = 1 : _
  1779.           CALL AskItems ("M",ZWasZ$,ZTrue,"msg",ZMarkedMsgs$)
  1780.        IF VAL(ZWasZ$) > 0 THEN _
  1781.           FOR WasI = ZWasQ TO 1 STEP -1 : _
  1782.              ZUserIn$(WasI + 1) = ZUserIn$(WasI) : _
  1783.           NEXT : _
  1784.           ZUserIn$(1) = MID$(ZAllOpts$,INSTR(ZOrigCommands$,"R"),1) : _
  1785.           ZLastIndex = ZWasQ + 1 : _
  1786.           ZAnsIndex = 1 : _
  1787.           RETURN 1235
  1788. * REPLACING old line(s) by new
  1789. * ------[ first line different ]------
  1790. 4631   IF NOT Forward AND NOT Reverse THEN _                         ' KG062301
  1791.           GOTO 4370                                                  ' KG062301
  1792.         CALL CheckCarrier                                            ' KG062301
  1793.        IF ZSubParm THEN _
  1794.           RETURN 10595
  1795.        IF ZRet THEN _
  1796.           RETURN
  1797. * REPLACING old line(s) by new
  1798. 4650 CALL AskMore ("",ZTrue,ZTrue,WasX,ZTrue)
  1799. * ------[ first line different ]------
  1800.     GOTO 4380                                               ' DD092102
  1801. * INSERTING new line(s)
  1802. 4651 '****     print current message        ****
  1803. Call MsgXport (MsgTo$,MsgFrom$,SubJect$,CurMsg,PNumRecs,RecToRead)     'Pe XportMsg
  1804.      goto 4604
  1805. * REPLACING old line(s) by new
  1806. 4661 WasY = (ASC(MID$(ZMsgRec$,116,1)) = 225)
  1807.      IF FirstActive = 0 THEN _
  1808.         IF WasY THEN _
  1809.            FirstActive = LOC(1)
  1810.      GOSUB 4662
  1811.      GET 1
  1812.      CALL ChkIfMsgHeader
  1813.      IF NOT ZOK THEN _
  1814.         ZNumHeaders = WasI
  1815. * ------[ first line different ]------
  1816.      IF MsgToCaller AND ((NOT WasY) OR (ZUserSecLevel < ZSecKillAny)) THEN _
  1817.         CurrHeaderRecNum = LOC(1) - 1 _
  1818.      ELSE WasI = WasI + 1 : _
  1819.           IF WasI <= ZNumHeaders THEN _
  1820.               GOTO 4661 _
  1821.           ELSE IF FirstActive > 0 THEN _
  1822.                   CurrHeaderRecNum = FirstActive
  1823.      GET 1, CurrHeaderRecNum
  1824.      UserInHeader = (MsgFromCaller OR MsgToCaller)
  1825.      RETURN
  1826. * REPLACING old line(s) by new
  1827. 4665 CALL Trim (MsgFrom$)
  1828. * ------[ first line different ]------
  1829.       X = 241       'Pe 01/26/93
  1830.        Gosub 47000  'Pe 01/26/93
  1831.      ZOutTxt$ = OutTxt$ + _
  1832.         MsgFrom$ + _
  1833.         " to"
  1834.      GOSUB 12995
  1835.      IF ZWasQ = 0 THEN _
  1836.         GOTO 4666
  1837.      IF LEN(ZUserIn$) > 30 THEN _
  1838.    X = 23 : _         'Pe 01/17/93
  1839.      Gosub 47000 : _     'Pe 01/17/93
  1840.         CALL QuickTPut1 (OutTxt$) : _
  1841.         GOTO 4665
  1842.      CALL AllCaps (ZUserIn$)
  1843.      MsgFrom$ = ZUserIn$
  1844. * REPLACING old line(s) by new
  1845. 4666 CALL Trim (MsgTo$)
  1846. * ------[ first line different ]------
  1847.       X = 242       'Pe 01/26/93
  1848.        Gosub 47000  'Pe 01/26/93
  1849.      ZOutTxt$ = OutTxt$ + _
  1850.         MsgTo$ + _
  1851.         " to"
  1852.      GOSUB 12995
  1853.      IF ZWasQ = 0 THEN _
  1854.         GOTO 4667
  1855.      IF LEN(ZUserIn$) > 30 THEN _
  1856.    X = 23 : _         'Pe 01/17/93
  1857.      Gosub 47000 : _     'Pe 01/17/93
  1858.         CALL QuickTPut1 (OutTxt$) : _
  1859.         GOTO 4666
  1860.      CALL AllCaps (ZUserIn$)
  1861.      MsgTo$ = ZUserIn$
  1862.      TempMsgTo$ = ZUserIn$
  1863.      CALL SetWhoTo (ZFalse,MsgTo$,MsgFrom$,RcvrRecNum,Found)
  1864.      IF MsgTo$ = "" THEN MsgTo$ = TempMsgTo$
  1865. * REPLACING old line(s) by new
  1866. 4667 CALL Trim (Subject$)
  1867. * ------[ first line different ]------
  1868.       X = 243       'Pe 01/26/93
  1869.        Gosub 47000  'Pe 01/26/93
  1870.      ZOutTxt$ = OutTxt$ + _
  1871.         Subject$ + _
  1872.         " to"
  1873.      GOSUB 12995
  1874.      IF ZWasQ = 0 THEN _
  1875.         GOTO 4668
  1876.      IF LEN(ZUserIn$) > 25 THEN _
  1877.    X = 24 : _         'Pe 01/17/93
  1878.      Gosub 47000 : _     'Pe 01/17/93
  1879.         CALL QuickTPut1 (OutTxt$) : _
  1880.         GOTO 4667
  1881.      CALL AllCaps (ZUserIn$)
  1882.      Subject$ = ZUserIn$
  1883. * REPLACING old line(s) by new
  1884. 4670 MsgTo$ = LEFT$(MsgTo$ + SPACE$(22),22)
  1885.      MsgFrom$ = LEFT$(MsgFrom$ + SPACE$(31),31)
  1886.      Subject$ = LEFT$(Subject$ + SPACE$(25),25)
  1887.      MsgPswd$ = LEFT$(MsgPswd$ + SPACE$(15),15)
  1888.      ZSubParm = 3
  1889.      CALL FileLock
  1890.      GET 1,CurHeader
  1891.      MID$(ZMsgRec$,37,22) = MsgTo$
  1892.      MID$(ZMsgRec$,6,31) = MsgFrom$
  1893.      MID$(ZMsgRec$,76,25) = Subject$
  1894.      MID$(ZMsgRec$,121,2) = MKI$(MsgSec)
  1895.      MID$(ZMsgRec$,101,15) = MsgPswd$
  1896.      IF LEFT$(MsgPswd$,6) = "^READ^" THEN _
  1897.         MID$(ZMsgRec$,1,1) = "*" _
  1898.      ELSE _
  1899.         MID$(ZMsgRec$,1,1) = " "
  1900.      PUT 1,CurHeader
  1901.      ZSubParm = 4
  1902.      CALL FileLock
  1903. * ------[ first line different ]------
  1904.    X = 25         'Pe 01/17/93
  1905.      Gosub 47000      'Pe 01/17/93
  1906.      CALL QuickTPut1 (OutTxt$)
  1907.      CALL SkipLine (1)
  1908.      RETURN
  1909. '
  1910. ' ****  O - COMMAND FROM MAIN MENU (OPERATOR PAGE)   ***
  1911. '
  1912. * REPLACING old line(s) by new
  1913. 4700 IF NOT ZSysopAvail THEN _
  1914. * ------[ first line different ]------
  1915.       X = 224 : _        'Pe 01/26/93
  1916.         Gosub 47000 : _  'Pe 01/26/93
  1917.         ZOutTxt$ =  ZSysopFirstName$ +OutTxt$ : _
  1918.         GOSUB 12979 : _
  1919.         GOTO 4755
  1920. * REPLACING old line(s) by new
  1921. * ------[ first line different ]------
  1922. 4705    X = 26 : _         'Pe 01/17/93
  1923.      Gosub 47000 : _     'Pe 01/17/93
  1924.      CALL QuickTPut1 (OutTxt$)
  1925.      WasJJ = VAL(MID$(TIME$,1,2))*100 + VAL(MID$(TIME$,4,2))
  1926.      IF (WasJJ > ZStartOfficeHours AND WasJJ < ZEndOfficeHours) OR ZSysopAnnoy THEN _
  1927.         GOTO 4710
  1928. * INSERTING new line(s)
  1929. 4707 GOTO 4750                                                    'Pe 02/03/90
  1930. * REPLACING old line(s) by new
  1931. * ------[ first line different ]------
  1932. 4708 X = 225        'Pe 01/26/93
  1933.      Gosub 47000   'Pe 01/26/93
  1934.        ZOutTxt$ = OutTxt$ + _
  1935.           STR$(ZStartOfficeHours) + _
  1936.           " to" + _
  1937.           STR$(ZEndOfficeHours) + ","
  1938.      GOSUB 12979
  1939.      GOTO 4755
  1940. * REPLACING old line(s) by new
  1941. 4710 ZOutTxt$ = "Page " + _
  1942.           ZSysopFirstName$ + _
  1943.           " (Y,[N])"
  1944.      CALL SkipLine (1)
  1945.      GOSUB 12999
  1946.      IF NOT ZYes THEN _
  1947.         RETURN
  1948.      PageCount = 0
  1949. * ------[ first line different ]------
  1950.      ZOutTxt$ = "Paging " + _
  1951.           ZSysopFirstName$
  1952.      GOSUB 12978
  1953.      PageTimeStart! = TIMER
  1954.      TempSnoop = ZSnoop
  1955.      ZSnoop = ZTrue
  1956.      CALL Line25
  1957. * REPLACING old line(s) by new
  1958. * ------[ first line different ]------
  1959. 4750    X = 27          'Pe 01/17/93
  1960.      Gosub 47000      'Pe 01/17/93
  1961.      CALL QuickTPut1 (ZSysopFirstName$ + OutTxt$)
  1962. * REPLACING old line(s) by new
  1963. * ------[ first line different ]------
  1964. 4755    X = 28          'Pe 01/17/93
  1965.      Gosub 47000      'Pe 01/17/93
  1966.      CALL QuickTPut1 (OutTxt$)
  1967.       PagedFileName$ = "PAGED.DEF"              'Pe 02/03/90
  1968.       CALL Graphic (PagedFileName$)                   'Pe 09/18/92
  1969.       Call BufFile (PagedFileName$,WasX)        'Pe 02/03/90
  1970.      ZPageStatus$ = "PG!"
  1971.      CALL UpdtCalr ("Operator paged " + LEFT$(TIME$,5),2)
  1972.      RETURN
  1973. * REPLACING old line(s) by new
  1974. 4765 CALL UpdtCalr ("Paged & chatted with Sysop",1)
  1975. * ------[ first line different ]------
  1976.          ZPageStatus$ = ""
  1977.      ZSysopGreeting$ = "SysOp in!  " + ZFirstName$ + ", this is " + _ ' DD062801/ANSICHAT
  1978.                        ZSysopFirstName$ + ", go ahead!"             ' DD062801/ANSICHAT
  1979. * REPLACING old line(s) by new
  1980. * ------[ first line different ]------
  1981. 4770 IF ZCanANSIChat = ZTrue THEN                                   ' DD071301/ANSICHAT
  1982.         CALL ANSIChat                                               ' DD062801/ANSICHAT
  1983.      ELSE                                                           ' DD062801/ANSICHAT
  1984.         CALL SkipLine (1)                                           ' DD062801/ANSICHAT
  1985.         CALL QuickTPut1 (ZSysopGreeting$)                           ' DD062801/ANSICHAT
  1986.         CALL SysopChat                                              ' DD062801/ANSICHAT
  1987.      END IF                                                         ' DD062801/ANSICHAT
  1988.      IF ZSubParm < 0 THEN _
  1989.         GOTO 202
  1990.      RETURN
  1991. '
  1992. ' ****  S - COMMAND FROM UTILITY MENU (STATISTICS)  ***  'Pe 09/02/91
  1993. '
  1994. * INSERTING new line(s)
  1995. 4849 GOSUB 4850         'PE 02/10/89
  1996.     CALL AskMore ("",ZTrue,ZFalse,WasX,ZTrue)   'PE 02/10/89
  1997.      RETURN             'PE 02/10/89
  1998. * REPLACING old line(s) by new
  1999. * ------[ first line different ]------
  2000. 4850 CALL Statistics (CallsToDate!,ActiveMessages,HighMsgNumber,HighestMsgRecord,CurUserCount,MaxMsgs)
  2001.      RETURN
  2002. '
  2003. * DELETING old line(s)
  2004. 4855
  2005. 4857
  2006. * REPLACING old line(s) by new
  2007. 4900 CALL UpdtCalr ("Entered " + ZConfName$,3)
  2008. * ------[ first line different ]------
  2009.    X = 29         'Pe 01/17/93
  2010.      Gosub 47000     'Pe 01/17/93
  2011.      CALL QuickTPut1 (OutTxt$ + " " + ZConfName$)
  2012. * REPLACING old line(s) by new
  2013. * ------[ first line different ]------
  2014. 4905 IF NOT ZTurboLogon THEN _
  2015.         GOSUB 1790
  2016. * REPLACING old line(s) by new
  2017. 4910 GOSUB 12986
  2018.      GOSUB 5344
  2019.      IF LOF(1) = 0 THEN _
  2020.         ZWasDF$ = ZActiveMessageFile$ : _
  2021.         CLOSE 1 : _
  2022.         KILL ZActiveMessageFile$ : _
  2023.         GOSUB 12987 : _
  2024.         RETURN 13600
  2025.      GOSUB 23000
  2026.      RETURN
  2027. '
  2028. * ------[ first line different ]------
  2029. ' ****  P - COMMAND FROM UTILITY MENU (PASSWORD CHANGE)  ***
  2030. '
  2031. * REPLACING old line(s) by new
  2032. 5110 GOSUB 11185
  2033.      ZMacroMin = 99
  2034.      ZParseOff = ZTrue
  2035.      GOSUB 12960
  2036. * ------[ first line different ]------
  2037.       X = 226         'Pe 01/26/93
  2038.       Gosub 47000   'Pe 01/26/93
  2039.      CALL NewPassword (OutTxt$ + ZPressEnter$,ZTrue)
  2040.      IF ZSubParm < 0 THEN _
  2041.         GOTO 202
  2042.      IF ZWasQ = 0 THEN _
  2043.         RETURN
  2044. * REPLACING old line(s) by new
  2045. * ------[ first line different ]------
  2046. 5120 X = 227        'Pe 01/26/93
  2047.      Gosub 47000   'Pe 01/26/93
  2048.      ZOutTxt$ = OutTxt$
  2049.      GOSUB 45010
  2050.      IF ZWasQ = 0 THEN _
  2051.         RETURN
  2052.      CALL AllCaps (ZUserIn$)
  2053.      IF ZWasZ$ <> ZUserIn$ THEN _
  2054.       X = 228 : _        'Pe 01/26/93
  2055.         Gosub 47000 : _  'Pe 01/26/93
  2056.         ZOutTxt$ = OutTxt$ : _
  2057.         GOSUB 12979 : _
  2058.         RETURN
  2059. * REPLACING old line(s) by new
  2060. 5125 IF ZMaxPswdChanges AND _
  2061.         ChangeThisSession > ZMaxPswdChanges AND _
  2062.         NOT ZSysop THEN _
  2063. * ------[ first line different ]------
  2064.       X = 229 : _        'Pe 01/26/93
  2065.         Gosub 47000 : _  'Pe 01/26/93
  2066.             ZOutTxt$ = OutTxt$ : _
  2067.             GOSUB 12975 : _
  2068.             RETURN _
  2069.      ELSE CALL SrchPasswrds (Found) : _
  2070.           IF NOT Found THEN _
  2071.              GOTO 5129 _
  2072.           ELSE X = 230 : _        'Pe 01/26/93
  2073.                Gosub 47000 : _  'Pe 01/26/93
  2074.                ZOutTxt$ = OutTxt$ : _
  2075.                GOSUB 12975 : _
  2076.                ZPswd$ = ZTempPassword$ : _
  2077.                ZSecsPerSession! = ZTempTimeAllowed * 60 : _
  2078.                ZUserSecLevel = ZTempSecLevel : _
  2079.                GOSUB 41070 : _
  2080.                ZSysop = (ZUserSecLevel >= ZSysopSecLevel) : _
  2081.                CALL SetPrompt : _
  2082.                CALL XferType (2,ZTrue)
  2083.      IF ZActiveUserName$ = "SYSOP" THEN _
  2084.         ZUserIn$(1) = "********"
  2085. * REPLACING old line(s) by new
  2086. * ------[ first line different ]------
  2087. 5126   X = 231         'Pe 01/26/93
  2088.       Gosub 47000  'Pe 01/26/93
  2089.      CALL UpdtCalr (OutTxt$ + ZUserIn$,2)
  2090.      RETURN
  2091. * REPLACING old line(s) by new
  2092. 5129 IF ZOrigUserFile$ <> ZActiveUserFile$ THEN _
  2093. * ------[ first line different ]------
  2094.    X = 30 : _         'Pe 01/17/93
  2095.      Gosub 47000 : _     'Pe 01/17/93
  2096.         CALL QuickTPut1 (OutTxt) : _
  2097.         RETURN
  2098.      GOSUB 12989
  2099.      CALL OpenUser (ZHighestUserRecord)
  2100.      GOSUB 9450
  2101. * REPLACING old line(s) by new
  2102. 5130 IF ZUserFileIndex < 1 OR _
  2103.         ZUserFileIndex > 32767 THEN _
  2104.         GOTO 5160
  2105.      GET 5,ZUserFileIndex
  2106.      CALL AllCaps (ZUserIn$)
  2107.      LSET ZPswd$ = ZUserIn$
  2108.      GOSUB 9440
  2109.      GOSUB 12991
  2110. * ------[ first line different ]------
  2111.       X = 232        'Pe 01/26/93
  2112.         Gosub 47000  'Pe 01/26/93
  2113.      ZOutTxt$ = OutTxt$
  2114.      ZStopInterrupts = ZTrue
  2115.      GOSUB 12975
  2116.      IF ZMaxPswdChanges THEN _
  2117.         ChangeThisSession = ChangeThisSession + 1
  2118. * REPLACING old line(s) by new
  2119. * ------[ first line different ]------
  2120. 5131  X = 229        'Pe 01/26/93
  2121.       Gosub 47000  'Pe 01/26/93
  2122.      CALL UpdtCalr (OutTxt$ + ZUserIn$(1),2)
  2123.      RETURN
  2124. '
  2125. ' ****  SEARCH "PASSWORDS" FILE FOR TEMPORARY PASSWORDS  ***
  2126. '
  2127. * REPLACING old line(s) by new
  2128. 5280 CALL BreakFileName (ZActiveMsgFile$,UserDrvPath$,ZWasDF$,ZWasY$,ZTrue)
  2129.      WasX$ = UserDrvPath$ + _
  2130.              ZConfName$ + _
  2131.              "U.DEF"
  2132.      CALL FindIt (WasX$)
  2133.      IF NOT ZOK THEN _
  2134. * ------[ first line different ]------
  2135.         CALL BreakFileName (ZActiveUserFile$,UserDrvPath$,ZWasDF$,ZWasY$,ZTrue) : _
  2136.         WasX$ = UserDrvPath$ + _
  2137.                 ZConfName$ + _
  2138.                 "U.DEF"
  2139.      RETURN
  2140. * REPLACING old line(s) by new
  2141. 5290 CALL NextConf (ZTrue)
  2142.      IF ZHomeConf$ <> "" THEN _
  2143.         ConfMailJoin = ZTrue : _
  2144.         RETURN 1205
  2145.      IF ZLinkedConf$ = "" THEN _
  2146. * ------[ first line different ]------
  2147.    X = 31 : _         'Pe 01/17/93
  2148.      Gosub 47000 : _     'Pe 01/17/93
  2149.         CALL QuickTPut1(OutTxt$)
  2150.      GOTO 5301
  2151. * REPLACING old line(s) by new
  2152. 5300 WasA1$ = ZConfMenu$
  2153.      CALL BreakFileName (ZActiveMessageFile$,MsgDrvPath$,WasX$,ZWasY$,ZTrue)
  2154. * ------[ first line different ]------
  2155. * REPLACING old line(s) by new
  2156. 5301 ZStackC = ZTrue
  2157. * ------[ first line different ]------
  2158.       X = 244       'Pe 01/26/93
  2159.        Gosub 47000  'Pe 01/26/93
  2160.      CALL SubMenu (OutTxt$,_
  2161.          WasA1$,MsgDrvPath$,"M.DEF",",M,MAIN,N,S,P,Q,", _
  2162.          ZTrue,ZFalse,ZFalse,"C.DEF",WasX,ZFalse)
  2163.      IF ZWasQ = 0 THEN _
  2164.         RETURN
  2165.      ZActiveUserName$ = ZOrigUserNameDgs$                         'Dgs-ALias
  2166.      ZFirstName$ = OrigFirstName$                                 'Dgs-ALias
  2167.      IF ZSubParm = -1 THEN _
  2168.         RETURN 10595
  2169. * REPLACING old line(s) by new
  2170. 5323 IF ZWasZ$ = "MAIN" THEN _
  2171.         ZWasZ$ = "M"
  2172.      WasX = (ZWasZ$ = "M")
  2173.      IF ZWasZ$ = ConfNameSave$ OR (WasX AND ZConfName$ = "MAIN") THEN _
  2174. * ------[ first line different ]------
  2175.    X = 32 : _         'Pe 01/17/93
  2176.      Gosub 47000 : _     'Pe 01/17/93
  2177.         CALL QuickTPut1 (OutTxt$ + " "  + ZWasZ$) : _
  2178.   GOSUB 2350 : _                                                     ' Pe042592
  2179.         RETURN
  2180.      ON INSTR("MNSPQ",ZWasZ$) GOTO 5350,5290,5292,5294,10550
  2181.      IF NOT ZOK THEN _
  2182.         GOTO 5300
  2183.      CLOSE 2
  2184. '
  2185. ' ****  UPDATE PREVIOUS MESSAGE BASE CHECKPOINT RECORD  ***
  2186. '
  2187. * REPLACING old line(s) by new
  2188. 5328 WasX$ = ZConfName$ + _
  2189.           "C.DEF"
  2190.      CALL FindIt (WasX$)
  2191.      ZSubBoard = ZOK
  2192.      IF NOT ZSubBoard THEN _
  2193.         CALL BreakFileName (ZMainMsgFile$,MsgDrvPath$,ZWasDF$,ZWasY$,ZTrue) : _
  2194.         WasX$ = MsgDrvPath$ + WasX$ : _
  2195.         CALL FindIt (WasX$) : _
  2196.         ZSubBoard = ZOK
  2197.      IF ZSubBoard THEN _
  2198.         IF LEN(ZConfName$) = 6 THEN _
  2199.            IF LEFT$(ZConfName$,4) = "RBBS" AND RIGHT$(ZConfName$,1) = "P" THEN _
  2200.               ZSubBoard = ZFalse
  2201.      IF NOT ZSubBoard THEN _
  2202.         GOSUB 5280 : _
  2203.         ZFileName$ = ZWelcomeFileDrvPath$ + _
  2204.                      ZConfName$ + _
  2205.                      "W.DEF" _
  2206.         ELSE CALL ReadDef (WasX$) : _
  2207.              IF ZErrCode > 0 THEN _
  2208.                 CALL UpdtCalr ("Error"+STR$(ZErrCode)+" reading config file "+WasX$,2) : _
  2209.                 ZErrCode = 0 : _
  2210.                 ZInConfMenu = ZFalse : _
  2211.                 ZOutTxt$ = "error reading subboard" : _
  2212.                 GOTO 5341 _
  2213.              ELSE WasX$ = ZMainUserFile$ : _
  2214.                   ZFileName$ = "" : _
  2215.                   CALL FindIt (ZMainMsgFile$) : _
  2216.                   IF NOT ZOK THEN _
  2217.                      ZOutTxt$ = "msg file missing for" : _
  2218.                      ZInConfMenu = ZFalse : _
  2219.                      GOTO 5341 _
  2220.                   ELSE ZActiveMessageFile$ = ZMainMsgFile$ : _
  2221.                        GOSUB 5343
  2222.      UpdateDate = ZTrue
  2223.      CALL FindIt (WasX$)
  2224.      IF ZOK THEN _
  2225.         GOTO 5330
  2226. '
  2227. ' *****  NO USER FILE - A PUBLIC CONFERENCE   ****
  2228. '
  2229.      ZMainUserFile$ = PrevMainUser$
  2230.      IF (ZUserSecLevel < AutoAddSec) THEN _
  2231.         GOTO 5340
  2232.      GOTO 5345
  2233. * ------[ first line different ]------
  2234. '
  2235. ' ****  CHECK CONFERENCE USER'S FILE  ***
  2236. '
  2237. * REPLACING old line(s) by new
  2238. 5335 IF Found THEN _
  2239.         GOSUB 9500 : _
  2240.         ZMainUserFileIndex = -(ZSubBoard * ZUserFileIndex)_
  2241. * ------[ first line different ]------
  2242.                          -((NOT ZSubBoard) * ZMainUserFileIndex) : _
  2243.         Temp = -(ZSubBoard * ZMinLogonSec) _
  2244.                -((NOT ZSubBoard) * AutoAddSec) : _
  2245.         GOSUB 5135 : _
  2246.         GOSUB 5296 : _
  2247.         WasI = (ZUserSecLevel < OrigMainSec) : _
  2248.         WasJ = (ZUserSecLevel < Temp) : _
  2249.         WasK = (WasI AND WasJ) : _
  2250.         IF WasK THEN _
  2251.          X = 245 : _         'Pe 01/17/93
  2252.          Gosub 47000 : _     'Pe 01/17/93
  2253.            ZOutTxt$ = OutTxt$ : _
  2254.            GOTO 5341 _
  2255.         ELSE GOSUB 5375 : _
  2256.              GOTO 5345
  2257. '
  2258. ' **** USER NOT FOUND.  AUTO-ADD TO SUBBOARD IF SUFFICIENT SECURITY ***
  2259. '
  2260.      ZNewUser = ZTrue
  2261.      IF ZSubBoard THEN _
  2262.         AutoAddSec = ZMinLogonSec
  2263.      IF (ZOrigSec >= AutoAddSec) AND _
  2264.         (ZUserFileIndex > 0) AND (ZMainUserFileIndex > 0) THEN _
  2265.         LSET ZUserRecord$ = UserRecordHold$ : _
  2266.    X = 33 : _         'Pe 01/17/93
  2267.      Gosub 47000 : _     'Pe 01/17/93
  2268.         CALL QuickTPut1 (OutTxt$ + " "  + ZConfName$) : _
  2269.         MID$(ZUserOption$,3,2) = MKI$(0) : _
  2270.         MID$(ZUserOption$,1,2) = MKI$(0) : _
  2271.         ZActiveUserName$ = LEFT$(UserRecordHold$,30) : _
  2272.         CALL Trim (ZActiveUserName$) : _
  2273.         Temp = -(ZSubBoard * ZDefaultSecLevel) _
  2274.                -((NOT ZSubBoard) * ZUserSecSave) : _
  2275.         CALL SetSysOp : _
  2276.         Temp = -(ZWasA * ZSysopSecLevel) - ((NOT ZWasA) * Temp) : _
  2277.         LSET ZSecLevel$ = MKI$(Temp) : _
  2278.         ZUserSecLevel = Temp : _
  2279.         GOSUB 5375 : _
  2280.         ZPageLength = ZPageLengthDef : _
  2281.         GOSUB 12986 : _
  2282.         GOSUB 12630 : _
  2283.         UpdateDate = ZTrue : _
  2284.         Found = ZTrue : _
  2285.         GOTO 5335
  2286.      IF ZOrigSec >= AutoAddSec THEN _
  2287.    X = 34 : _         'Pe 01/17/93
  2288.      Gosub 47000 : _     'Pe 01/17/93
  2289.         CALL QuickTPut1 (OutTxt$ +" " + ZConfName$) : _
  2290.         ZActiveUserFile$ = PrevUser$ : _
  2291.         UpdateDate = ZFalse : _
  2292.         ZUserFileIndex = PrevIndex : _
  2293.         GOSUB 5382 : _
  2294.         ZUserFileIndex = 0 : _
  2295.         GOTO 5345
  2296.      ZNewUser = ZFalse
  2297. * REPLACING old line(s) by new
  2298. 5340 IF ZInConfMenu THEN _
  2299. * ------[ first line different ]------
  2300.         ZOutTxt$ = "conference NOT availble " _    ' Pe 04/24/92
  2301.      ELSE ZOutTxt$ = "no such option"
  2302. * REPLACING old line(s) by new
  2303. * ------[ first line different ]------
  2304. 5341 ZOutTxt$ = ZConfName$ + " " + ZOutTxt$
  2305. '
  2306. ' ****  CANNOT JOIN THE REQUESTED CONFERENCE.  THEREFORE, GO BACK  ***
  2307. '
  2308.      GOSUB 1397
  2309.      ZConfName$ = PrevConfName$
  2310.      ConfFileName$ = ZConfName$
  2311.      IF ZSubBoard THEN _
  2312.         CALL ReadDef (PrevDef$)
  2313.      ZActiveMessageFile$ = PrevMsg$
  2314.      GOSUB 5343
  2315.      ZUserFileIndex = PrevIndex
  2316.      ZActiveUserFile$ = PrevUser$
  2317.      GOSUB 5382
  2318.      ZConfMode = ConfModeSave
  2319.      GOSUB 12987
  2320.      ZAnsIndex = 0
  2321.      ZLastIndex = 0
  2322.      GOTO 5301
  2323. '
  2324. ' ****  RESTORE A MESSAGE BASE   ***
  2325. '
  2326. * REPLACING old line(s) by new
  2327. * ------[ first line different ]------
  2328. 5345 DgsStl$ = ""                                                 'Dgs-ALias
  2329.      WHILE DgsAlias$ = ""                                         'Dgs-ALias
  2330.         CALL AliasDgs (ZConfName$,ZOrigUserNameDgs$,DgsAlias$, _  'Dgs-ALias
  2331.                        DgsStl$,DgsFileName$)                      'Dgs-ALias
  2332.      WEND                                                         'Dgs-ALias
  2333.      DgsAlias$ = ""                                               'Dgs-ALias
  2334.      ZNewsFileName$ = ZWelcomeFileDrvPath$ + ZConfName$ + ".NWS"
  2335.      CALL DeLink (ZConfName$)
  2336.      ConfNameSave$ = ZConfName$
  2337.      ZConfName$ = ZConfName$ + " " + MID$("ConferenceSubboard",1-10*ZSubBoard,10)
  2338.      IF ZGlobalSysop THEN _
  2339.         ZActiveUserName$ = "SYSOP"
  2340.      ZMarkedMsgs$ = ""
  2341.      ZMarkedFiles$ = ""   'Pe 03/21/92
  2342. * REPLACING old line(s) by new
  2343. 5350 IF ZConfName$ <> "MAIN" THEN _
  2344. * ------[ first line different ]------
  2345.    X = 35 : _         'Pe 01/17/93
  2346.      Gosub 47000 : _     'Pe 01/17/93
  2347.         CALL QuickTPut1 (OutTxt$ + " " + OrigMsgName$)
  2348.      ZActiveUserName$ = ZOrigUserNameDgs$                         'Dgs-ALias
  2349.      ZFirstName$ = OrigFirstName$                                 'Dgs-ALias
  2350.      CALL DeLink (ZConfName$)
  2351.      ConfFileName$ = OrigMsgName$
  2352.      ZNewsFileName$ = OrigNewsFileName$
  2353.      ZTurboLogon = ZTrue
  2354.      ZMarkedMsgs$ = ""
  2355.      ZMarkedFiles$ = ""   'Pe 04/18/92
  2356.      ZWasQ = 0
  2357.      ZNewUser = ZFalse
  2358.      ZInConfMenu = ZTrue
  2359.      IF ZActiveUserName$ = "SYSOP" THEN _
  2360.             ZActiveUserName$ = ZSecretName$ : _
  2361.         CALL Trim (ZActiveUserName$)
  2362.      ZConfigFileName$ = ZOrigCnfg$
  2363.      CALL ReadDef (ZConfigFileName$)
  2364.      IF ZOrigMsgFile$ <> ZActiveMessageFile$ THEN _
  2365.         ZActiveMessageFile$ = ZOrigMsgFile$ : _
  2366.         GOSUB 5343
  2367.      IF ZOrigUserFile$ <> ZActiveUserFile$ THEN _
  2368.         GOSUB 5380 : _
  2369.         ZActiveUserFile$ = ZOrigUserFile$ : _
  2370.         ZActiveUserName$ = ZOrigUserName$ : _
  2371.         GOSUB 12598 : _
  2372.         GOSUB 12990 : _
  2373.         IF Found THEN _
  2374.            GOSUB 9500 : _
  2375.            ZMainUserFileIndex = ZUserFileIndex : _
  2376.            CALL SetPrompt : _
  2377.            CALL XferType (2,ZTrue) _
  2378.         ELSE ZUserFileIndex = 0 : _
  2379.              ZMainUserFileIndex = 0
  2380.      CALL UpdtCalr (ZActiveUserName$ +" Exited " + ZConfName$,3)  'Pe 11/07/91
  2381.      ZConfName$ = "MAIN"
  2382.      ConfNameSave$ = ZConfName$
  2383.      GOSUB 2350
  2384.      ZUplds = ZGlobalUplds
  2385.      ZDnlds = ZGlobalDnlds
  2386.      ZDLToday! = ZGlobalDLToday!
  2387.      ZBytesToday! = ZGlobalBytesToday!
  2388.      ZDLBytes! = ZGlobalDLBytes!
  2389.      ZULBytes! = ZGlobalULBytes!
  2390.      ZBankTime = ZGlobalBankTime
  2391. * REPLACING old line(s) by new
  2392. 5360 ZConfMode = ZFalse
  2393.      BoardCheckDate$ = ZLastDateTimeOn$
  2394.      ZSubBoard = ZTrue
  2395.      GOSUB 12987
  2396. * ------[ first line different ]------
  2397. If ZlogOff$ = "G" Then Return       'Pe 12/30/92
  2398.      RETURN 108
  2399. * REPLACING old line(s) by new
  2400. 5380 IF ZUserFileIndex < 1 THEN _
  2401.         RETURN
  2402.      IF ZAdjustedSecurity AND NOT ZSysop THEN _
  2403.         LSET ZSecLevel$ = MKI$(ZUserSecLevel) : _
  2404.         ZUserSecSave = ZUserSecLevel
  2405. * ------[ first line different ]------
  2406.      IF ZSubBoard THEN _                                          'Dgs-ALias
  2407.         ZActiveUserName$ = ZOrigUserNameDgs$ : _                  'Dgs-ALias
  2408.         ZFirstName$ = OrigFirstName$                              'Dgs-ALias
  2409.      CALL UpdateU (ZFalse)
  2410.      RETURN
  2411. '
  2412. ' *****  RESTORE A USER RECORD  ****
  2413. '
  2414. * DELETING old line(s)
  2415. 5400
  2416. 5410
  2417. * INSERTING new line(s)
  2418. 5450 CALL ShowUsrProfile 'Pe 02/03/90
  2419.      RETURN
  2420. '
  2421. ' *****  Who Uploadled What from Main MEnu  ****
  2422. '
  2423. * REPLACING old line(s) by new
  2424. * ------[ first line different ]------
  2425. 5500 Call WhoDidIt
  2426.      CALL AskMore ("End of Listing",ZTrue,ZFalse,WasX,ZTrue)   'Pe 01/25/92
  2427.      Return
  2428. '
  2429. * DELETING old line(s)
  2430. 5502
  2431. * INSERTING new line(s)
  2432. 5700 RETURN 10595  'Entry point when have double nested gosub  'Pe 01/24/92
  2433. '
  2434. ' *****  V - COMMAND FROM MAIN MENU (VIEW CONFERENCES)  ****
  2435. '
  2436. * REPLACING old line(s) by new
  2437. 8030 MsgTo$ = MID$(ZMsgRec$,37,22)
  2438. * ------[ first line different ]------
  2439.      IF (ZNewUserDGS AND INSTR(MsgTo$,"NEWUSER")) THEN _          'DGS-NEW
  2440.          MsgTo$ = ZActiveUserName$                                'DGS-NEW
  2441.          CALL SmartText(MsgTo$,ZFalse,ZFalse,ZTrue)        'Pe 02/06/93
  2442.          CALL Trim (MsgTo$)
  2443.      IF ZNumHeaders > 1 THEN _
  2444.         MsgTo$ = MsgTo$ + " et al."
  2445. * REPLACING old line(s) by new
  2446. 8050 MsgFrom$ = MID$(ZMsgRec$,6,31)
  2447.      CALL Trim (MsgFrom$)
  2448.      IF LEN(MsgFrom$) < 23 THEN _
  2449.         MsgFrom$ = MsgFrom$ + _
  2450.                         SPACE$(23 - LEN(MsgFrom$))
  2451.      IF ZUserSecLevel >= ZSecChangeMsg THEN _
  2452.         Year$ = "  Security:" + _
  2453.               STR$(MsgSec) _
  2454.         ELSE Year$ = ""
  2455.      IF MID$(ZMsgRec$,101,1) = "!" THEN _
  2456.         MID$(ZMsgRec$,1,1) = "!"
  2457.      ZOutTxt$ = ZFG1$ + "Msg #: " + _
  2458.           LEFT$(ZMsgRec$,5) + _
  2459.           Year$ + SPACE$ (22-LEN(Year$)) + ZConfName$
  2460.      Year$ = ZFG4$ + "   Sent: " + _
  2461.           MID$(ZMsgRec$,68,8) + _
  2462.           " " + _
  2463.           MID$(ZMsgRec$,59,5)
  2464.      IF NOT ZRet THEN _
  2465.         IF ReadMsgs THEN _
  2466.            CALL QuickTPut1 (ZOutTxt$): _
  2467.            WasX$ = MsgFrom$ : _
  2468. * ------[ first line different ]------
  2469.            CALL NameCaps(WasX$) : _            'SM091909
  2470.            CALL CheckColor (WasX$,SubInHeader$,ZFG2$) : _
  2471.            CALL QuickTPut1 (ZFG2$ + " From:  " + WasX$ + Year$) : _
  2472.            GOSUB 8076 : _
  2473.            WasX$ = MsgTo$ : _
  2474.            CALL NameCaps(WasX$) : _            'SM091909
  2475.            CALL CheckColor (WasX$,SubInHeader$,ZFG3$) : _
  2476.            CALL QuickTPut1 (ZFG3$ + "   To:  " + WasX$ + "  " + ZFG2$ + Year$) : _
  2477.            CALL CheckColor (Subject$,SubInHeader$,ZFG4$) : _
  2478.            CALL NameCaps(Subject$) : _            'SM091909
  2479.            ZOutTxt$ = ZFG4$ + "   Re:  " + _
  2480.                 Subject$ + ZEmphasizeOff$ : _        'SM091909
  2481.            CALL AllCaps (Subject$) _            'SM091909
  2482.         ELSE ZOutTxt$ = ZFG1$ + LEFT$(ZMsgRec$,5) + _
  2483.                   " " + _
  2484.                   MID$(ZMsgRec$,68,5) + _
  2485.                   " " + _
  2486.                   + ZFG2$ + LEFT$(MsgFrom$,18) + _
  2487.                   " -> " + _
  2488.                   + ZFG3$ + LEFT$(MsgTo$,19) + _
  2489.                   " " + _
  2490.                   + ZFG4$ + LEFT$(Subject$,24) + ZEmphasizeOff$ : _
  2491.              CALL CheckColor (ZOutTxt$,SubInHeader$,"") : _
  2492.              GOTO 8080
  2493.      IF QuickScanMsgs OR _
  2494.         ScanMsgs THEN _
  2495.            GOTO 8080 _
  2496.      ELSE GOTO 8077
  2497. * REPLACING old line(s) by new
  2498. * ------[ first line different ]------
  2499. 9000 IF NOT ZJustSearching THEN _   'Pe 05/31/91
  2500.         GOSUB 4656: _
  2501.         CALL SkipLine (1) : _
  2502.         ZLinesInMsg = 1 : _
  2503.         MsgDimXtra = 250 : _        'MsgDimXtra = 150 : _  'Pe021893
  2504.         REDIM ZOutTxt$(MsgDimXtra) : _
  2505.         Remain$ = "" : _
  2506.         HiLitedLine = 0
  2507.      RecToRead = ZMsgPtr(ZMsgDimIndex,1) + ZNumHeaders - 1
  2508.      FOR WasX = ZNumHeaders + 1 TO VAL(MID$(ZMsgRec$,117,4))
  2509.         WasJ = 1
  2510.         RecToRead = RecToRead + 1
  2511.         GET 1, RecToRead
  2512.         IF ZJustSearching THEN _    'Pe 05/30/91
  2513.            ZOutTxt$ = ZMsgRec$ : _
  2514.            CALL AllCaps (ZOutTxt$) : _
  2515.            HiLitePos = INSTR(ZOutTxt$,SearchString$) : _
  2516.            IF HiLitePos > 0 THEN _
  2517.               SearchCt = 0 : _
  2518.               HiLiteRec = LOC(1) : _
  2519.               WasX = 9999 : _
  2520.               GOTO 9090 _
  2521.            ELSE GOTO 9090
  2522. * REPLACING old line(s) by new
  2523. 9085    IF LEFT$(ZOutTxt$,1) = ZStartOfHeader$ OR _
  2524.            LEFT$(ZOutTxt$,LEN(ZScreenOutMsg$)) = ZScreenOutMsg$ THEN _
  2525.            GOTO 9050
  2526.         ZOutTxt$(ZLinesInMsg) = ZOutTxt$
  2527.         IF Bracketed THEN _
  2528.            Bracketed = ZFalse : _
  2529.            HiLitedLine = ZLinesInMsg
  2530.         ZLinesInMsg = ZLinesInMsg + 1
  2531.         IF ZLinesInMsg > MsgDimXtra THEN _
  2532.            ZLinesInMsg = ZLinesInMsg - 1 : _
  2533.            CALL SkipLine (1) : _
  2534. * ------[ first line different ]------
  2535.    X = 36 : _         'Pe 01/17/93
  2536.      Gosub 47000 : _     'Pe 01/17/93
  2537.            CALL QuickTPut1 (OutTxt$ + " " + STR$(MsgDimXtra) + " lines!") : _
  2538.            ZOutTxt$ = "" : _
  2539.            RETURN
  2540.         IF NOT DontPrint THEN _
  2541.            CALL SmartText(ZoutTxt$,ZFalse,ZFalse,ZTrue) : _    'Pe 02/06/93
  2542.            GOSUB 12979 : _
  2543.            IF ZRet THEN _
  2544.               ZOutTxt$ = "" : _
  2545.               RETURN _
  2546.            ELSE CALL AskMore ("",ZTrue,ZTrue,ZAnsIndex,ZFalse) : _
  2547.                 IF ZNo THEN _
  2548.                    DontPrint = ZTrue
  2549.         GOTO 9050
  2550. * REPLACING old line(s) by new
  2551. 9090 NEXT
  2552.      IF DontPrint = ZTrue THEN _
  2553.         GOTO 5160
  2554. * ------[ first line different ]------
  2555.      IF ZJustSearching AND HiLitePos > 0 THEN _
  2556.         ZJustSearching = ZFalse : _                   'PE 05/30/91
  2557.         GET 1,ZMsgPtr(ZMsgDimIndex,1) : _
  2558.         GOSUB 8000 : _
  2559.         GOTO 9000
  2560.      ZOutTxt$ = ""
  2561.      RETURN
  2562. '
  2563. ' *  C - COMMAND FROM UTILITY MENU (CLOCK - TIME ON SYSTEM)
  2564. '
  2565. * INSERTING new line(s)
  2566. 9099 GOSUB 9100                          'Pe 02/11/89
  2567.      CALL BankTime
  2568.      CALL AskMore ("",ZTrue,ZFalse,WasX,ZTrue) 'Pe 02/11/89
  2569.      RETURN                              'PE 02/11/89
  2570. * REPLACING old line(s) by new
  2571. * ------[ first line different ]------
  2572. 9701 X = 246          'Pe 01/17/93
  2573.      Gosub 47000      'Pe 01/17/93
  2574.      CALL SubMenu (OutTxt$,_
  2575.                    WasA1$, ZBulletinPrefix$,"",ReturnOn$,_
  2576.                    ZFalse,ZFalse,ZFalse,"",WasX,ZTrue)
  2577.      IF ZWasQ = 0 THEN _
  2578.         RETURN
  2579.      CALL CheckCarrier
  2580.      IF ZSubParm = -1 THEN _
  2581.         RETURN 10595
  2582.      IF (ZWasZ$ = "*" OR ZWasZ$ = "S") THEN _
  2583.         ZPrevPrefix$ = "" : _
  2584.         GOTO 9760
  2585.      ZStopInterrupts = ZFalse
  2586.      IF ZWasZ$ = "N" THEN _
  2587.         GOSUB 1242 : _
  2588.         IF WasZ <> 0 THEN _
  2589.    X = 37 : _         'Pe 01/17/93
  2590.      Gosub 47000 : _     'Pe 01/17/93
  2591.            CALL QuickTPut1 (OutTxt$) : _
  2592.            GOTO 9701 _
  2593.         ELSE GOTO 9703
  2594.      CALL BufFile (ZFileName$,ZAnsIndex)
  2595. * REPLACING old line(s) by new
  2596. 9760 ' ****  [entry when want review plus chance to read] *********
  2597.      GOSUB 9750
  2598.      IF NumNewBullets > 0 THEN _
  2599.         ZLastIndex = NumNewBullets + 1 : _
  2600. * ------[ first line different ]------
  2601.         X = 247 : _         'Pe 01/17/93
  2602.        Gosub 47000 : _     'Pe 01/17/93
  2603.        ZOutTxt$ = OutTxt$ : _
  2604.         GOSUB 12999 : _
  2605.         IF NOT ZNo THEN _
  2606.            FOR Temp = 1 TO NumNewBullets : _
  2607.               ZUserIn$(Temp) = ZOutTxt$(Temp+1) : _
  2608.            NEXT : _
  2609.            ZAnsIndex = 0 : _
  2610.            ZLastIndex = NumNewBullets : _
  2611.            GOTO 9700
  2612.      ZLastIndex = 0
  2613.      IF ZAnsIndex < 1 THEN _
  2614.         RETURN
  2615.      GOTO 9701
  2616. '
  2617. ' *  W - COMMAND FROM MAIN MENU (WHO'S ON THE OTHER NODES)
  2618. '
  2619. * REPLACING old line(s) by new
  2620. 9800 CALL WhosOn (ZMaxNodes)
  2621. * ------[ first line different ]------
  2622.      CLOSE 9                                                         ' CHAT0813
  2623.      CALL AskMore ("",ZTrue,ZFalse,WasX,ZTrue) 'Pe 02/11/89 
  2624.      GOSUB 5344
  2625.      RETURN
  2626. '***       CHAt Mod ***********
  2627. * INSERTING new line(s)
  2628. 9801 IF ZMaxNodes < 2 THEN _                                     'PECHT0603
  2629.      RETURN
  2630.      X = 248        'Pe 01/17/93
  2631.      Gosub 47000     'Pe 01/17/93
  2632.      ZOutTxt$ = OutTxt$
  2633.         GOSUB 12999
  2634.      IF NOT ZYes THEN _
  2635.         RETURN
  2636. '9802 CALL PageEm (ZNodeRecIndex - 1, ZMaxNodes)
  2637. '     REM ** 'ZNodeRecIndex - 1' is the users actual node number.. is there
  2638. '     REM ** already a variable for this?? I dunno..
  2639. '     REM **
  2640. '     REM ** PageEm will call WhosOn, then ask if they want to page someone
  2641. '     REM ** if so, it'll call CBTrueChat
  2642. '     REM ** etc..
  2643. '     CLOSE 9                                                        ' RCHAT
  2644. '     GOSUB 5344
  2645. '     RETURN
  2646. 9802 
  2647.      CALL PageEm (ZNodeRecIndex - 1, ZMaxNodes, ZFalse)     
  2648.      CALL CBTrueChat(ZMaxNodes)
  2649.        Close 9
  2650.          GOSUB 5344
  2651.        RETURN
  2652. '
  2653. ' *  1 - COMMAND FROM SYSOP MENU (DISPLAY COMMENTS)
  2654. '
  2655. * REPLACING old line(s) by new
  2656. * ------[ first line different ]------
  2657. 10070 ZFileName$ = ZCmntsFile$
  2658.       IF NOT ZStopInterrupts THEN _
  2659.       X = 249 : _         'Pe 01/17/93
  2660.       Gosub 47000 : _     'Pe 01/17/93
  2661.          ZOutTxt$ = OutTxt$ : _
  2662.          GOSUB 12976
  2663.       GOSUB 20150
  2664. '
  2665. ' Delete Comments added here to allow Sysops 4 command to handle BatchUploads 'Pe 09/12/91
  2666. '
  2667.   X = 250         'Pe 01/17/93
  2668.   Gosub 47000     'Pe 01/17/93
  2669.    ZOutTxt$ = OutTxt$
  2670.    GOSUB 12995
  2671.       IF ZYes THEN _
  2672.          CALL OpenOutW (ZCmntsFile$)
  2673.       CLOSE 2
  2674.       RETURN
  2675. '
  2676. ' *  U - COMMAND FROM UTILITY MENU (DISPLAY USERS)
  2677. ' *  2 - COMMAND FROM SYSOP MENU (DISPLAY USERS)
  2678. '
  2679. * REPLACING old line(s) by new
  2680. * ------[ first line different ]------
  2681. 10090 X = 251         'Pe 01/17/93
  2682.       Gosub 47000     'Pe 01/17/93
  2683.       ZOutTxt$ = OutTxt$
  2684.       ZMacroMin = 2
  2685.       CALL SkipLine (1)
  2686.       GOSUB 12930
  2687.       IF ZWasQ = 0 THEN _
  2688.          RETURN
  2689.       CALL AraAllCaps (ZUserIn$(),ZAnsIndex)
  2690.       ON INSTR("UR",ZUserIn$(ZAnsIndex)) + 1 GOTO 10090,10096,10093
  2691. * REPLACING old line(s) by new
  2692. 10391 CALL ChangeInt (ZFalse,"Recover Msg #",0,1,9999)
  2693.       IF ZWasQ = 0 THEN _
  2694.          RETURN
  2695.       MsgToRecover = ZTestedIntValue
  2696.       GOSUB 5344
  2697.       ActionFlag = ZFalse
  2698. * ------[ first line different ]------
  2699.       CALL RecoverMsg (MsgToRecover,FirstMsgRecord,ActionFlag,ZConfName$) 'Pe 06/09/91
  2700.       MsgRecovered = MsgRecovered OR ActionFlag
  2701.       GOTO 10391
  2702. * REPLACING old line(s) by new
  2703. 10392 IF MsgRecovered THEN _
  2704.          ActionFlag = ZTRUE : _
  2705.          GOTO 1900
  2706.       RETURN
  2707. '
  2708. * ------[ first line different ]------
  2709. ' *  4 - COMMAND FROM SYSOP Now BatchUpload File in Maple Version at line 20195
  2710. '
  2711. * DELETING old line(s)
  2712. 10530
  2713. * REPLACING old line(s) by new
  2714. 10553 CALL UpdtCalr ("Time limit exceeded",1)
  2715. * ------[ first line different ]------
  2716.    X = 38         'Pe 01/17/93
  2717.      Gosub 47000      'Pe 01/17/93
  2718.  CALL QuickTPut1 (ZFirstName$ + OutTxt$)
  2719.       GOTO 10562                                   'Pe 02/03/90
  2720. '
  2721. ' *  Q - COMMAND FROM GLOBAL FUNCTIONS
  2722. '
  2723. * REPLACING old line(s) by new
  2724. * ------[ first line different ]------
  2725. 10560 GOSUB 41000      'Pe 02/04/90
  2726.       IF ZExpertUser THEN ZLogoff$ = "L"
  2727. * INSERTING new line(s)
  2728. 10562 GOSUB 9100
  2729.       IF ZUserSecLevel < ZSecExemptFromEpilog THEN _
  2730.            ZFileName$ = ZEpilog$ : _
  2731.            GOSUB 11520
  2732.     Call MenuPlus (3)                        'Pe Menu174
  2733.        If ZLocalUser and ZSysop Then _
  2734.           Goto 10595                              'pe 12/01/91
  2735.       IF ZLocalUserMode OR NOT ZLocalUser THEN _
  2736.          CALL UpdtCalr ("Logged off",1)
  2737.       GOTO 10595
  2738. * REPLACING old line(s) by new
  2739. * ------[ first line different ]------
  2740. 10570 GOSUB 41000    'Pe 02/04/90
  2741.      ZLogoff$ = ""
  2742. IF ZMarkedFiles$ <> "" THEN _
  2743.    X = 39 : _         'Pe 01/17/93
  2744.      Gosub 47000 : _     'Pe 01/17/93
  2745. Call QuickTput1(ZCrLf$ + Chr$(7)+OutTxt$ + ZCrLF$)  'Pe marked mod
  2746. '
  2747. ZStopInterrupts = ZTrue                        'Pe 04/17/92
  2748. CALL BufFile(ZHelpPath$+"LOGOFF.MNU",X)        'MO 04/13/92
  2749.     ZStopInterrupts = ZFalse                   'Pe 04/17/92
  2750. IF ZTempMaxBank > 0 THEN
  2751.   X = 252         'Pe 01/17/93
  2752.   Gosub 47000     'Pe 01/17/93
  2753.    ZOutTxt$ = OutTxt$
  2754. ELSE 
  2755.   X = 253         'Pe 01/17/93
  2756.   Gosub 47000     'Pe 01/17/93
  2757.    ZOutTxt$ =  OutTxt$
  2758. END IF                                        ' DD062503
  2759.        GOSUB 12999                  'Pe 04/25/92
  2760.         CALL AllCaps (ZUserIn$)
  2761.         WasX = INSTR("ABCG",ZUserIn$)                       ' DD062503
  2762.         IF ZUserIn$ = "" THEN _
  2763.            GetOut = ZTrue : _
  2764.            GOTO 10562
  2765.     ON WasX GOTO 10571,10574,10572,10573                             ' DD062503
  2766.     GOTO 10573
  2767. * INSERTING new line(s)
  2768. 10571 RETURN
  2769. 10572 ZLogOff$ = "G"
  2770.       GetOut = ZTrue
  2771.       Gosub 5350          'Pe 12/30/92
  2772.       GOTO 1800
  2773. 10573 GetOut = ZTrue
  2774.       ZLogOff$ = "L"     'Pe 02/04/89
  2775.       GOTO 10560
  2776. 10574 GetOut = Ztrue                                                 ' DD062503
  2777.       ZLogOff$ = "L"                                                 ' DD062503
  2778.       IF ZTempMaxBank > 0 THEN _
  2779.        CALL BankTime 
  2780.       GOTO 10560                                                     ' DD062503
  2781. * REPLACING old line(s) by new
  2782. 10595 CALL GetTime
  2783.       GOSUB 13700
  2784. * ------[ first line different ]------
  2785.       IF ZDnldCompleted = ZTrue AND ZAutoEnd = 1 THEN _    'AUTOLOGOFF MOD
  2786.       ZAutoLogoffReq = ZTrue : _  'Pe 10/22/91
  2787.       GOSUB 46000  'Pe 02/03/90
  2788.       ZSubParm = 0
  2789.       CALL Carrier
  2790.       IF ZSubParm = -1 THEN _
  2791.          GOTO 10597
  2792.       IF ZConfName$ = OrigMsgName$ THEN _
  2793.          GetOut = ZTrue
  2794.       IF (ZSubBoard AND (NOT GetOut) AND (NOT ZSleepDisconnect)) THEN _
  2795.          GOSUB 5380 : _
  2796.          ZHomeConf$ = "M" : _
  2797.    X = 40 : _         'Pe 01/17/93
  2798.      Gosub 47000 : _     'Pe 01/17/93
  2799.          CALL QuickTPut1 (OutTxt$ + " " + ZConfName$) : _
  2800.          ZSubBoard = ZFalse : _
  2801.          GOTO 1205
  2802. * REPLACING old line(s) by new
  2803. * ------[ first line different ]------
  2804. 10698 IF ZFunctionKey = 22 THEN _
  2805.          GOTO 13545
  2806.       ZOutTxt$ = "Access denied!"
  2807.       GOSUB 12976
  2808.       CALL DelayTime (8 + ZBPS)
  2809.       GOTO 13545
  2810. '
  2811. ' *  M - COMMAND FROM UTILITY MENU (CHANGE MARGINS)
  2812. '
  2813. * REPLACING old line(s) by new
  2814. 10930 IF (ZRequiredRings = 0 AND NOT ZNoDoorProtect) THEN _
  2815. * ------[ first line different ]------
  2816.    X = 41 : _         'Pe 01/17/93
  2817.      Gosub 47000 : _     'Pe 01/17/93
  2818.          CALL QuickTPut1 (OutTxt$) : _
  2819.          RETURN
  2820. * REPLACING old line(s) by new
  2821. 10932 IF ZLocalUser AND NOT ZDebug THEN _
  2822. * ------[ first line different ]------
  2823.    X = 42 : _         'Pe 01/17/93
  2824.      Gosub 47000 : _     'Pe 01/17/93
  2825.          CALL QuickTPut1 (OutTxt$) : _
  2826.          RETURN
  2827.       CALL DosExit
  2828.       ZSubParm = -9
  2829.       CALL FindFKey
  2830.       GOTO 202
  2831. '                                                                    ' DD020602/SFILE
  2832. ' *  8 - COMMAND FROM SYSOP MENU (FMS FILE MAINTENANCE)              ' DD020602/SFILE
  2833. '                                                                    ' DD020602/SFILE
  2834. '* INSERTING new line(s)
  2835. * INSERTING new line(s)
  2836. 10950 'CALL Sysop8                                             ' DD022603/SFILE
  2837.       RETURN                                                         ' DD020602/SFILE
  2838. '
  2839. ' *  D - COMMAND FROM MAIN MENU (EXIT TO DOORS)
  2840. '
  2841. * REPLACING old line(s) by new
  2842. 10970 IF NOT ZDoorsAvail OR _
  2843.          (ZRequiredRings = 0 AND NOT ZNoDoorProtect) THEN _
  2844. * ------[ first line different ]------
  2845.    X = 43 : _         'Pe 01/17/93
  2846.      Gosub 47000 : _     'Pe 01/17/93
  2847.          CALL QuickTPut1 (OutTxt$) : _
  2848.                CALL DelayTime (8 + ZBPS) : _     'Pe 07/09/90
  2849.          RETURN
  2850.       IF ZTimeLock AND 1 AND NOT ZHasDoored THEN _
  2851.          CALL TimeLock : _
  2852.          IF NOT ZOK THEN _
  2853.             RETURN
  2854. * REPLACING old line(s) by new
  2855. 10974 WasA1$ = ZMenu$(5)
  2856. * ------[ first line different ]------
  2857.       ZStackC = ZTrue
  2858.       Gosub 41000              'JA010801
  2859.       CALL SubMenu ("Open which door, L)ist" + ZPressEnterExpert$, _
  2860.                     WasA1$,"",".BAT","",_
  2861.                     ZTrue,ZFalse,ZFalse,"",InMenu,ZFalse)
  2862.       IF ZWasQ = 0 THEN _
  2863.          RETURN
  2864.       IF ZSubParm = -1 THEN _
  2865.          RETURN 10595
  2866. * REPLACING old line(s) by new
  2867. 10986 ZWasZ$ = ZFileName$
  2868.       CALL DoorExit (NOT InMenu)
  2869. * ------[ first line different ]------
  2870.       CALL ReadProf(2)  'Pe 12/20/92
  2871.    X = 44         'Pe 01/17/93
  2872.      Gosub 47000      'Pe 01/17/93
  2873.       Call QuickTput1 (OutTxt$ + " " + ZFirstName$ + " ...") 'Pe 12/23/91
  2874.       Return     '1232      'Pe 02/04/93
  2875. '
  2876. ' *  5 - COMMAND FROM SYSOP MENU (USER FILE MAINTENANCE)
  2877. '
  2878. * REPLACING old line(s) by new
  2879. 11000 WasTU = ZUserFileIndex
  2880.       CALL DefaultU
  2881.       UserRecordHold$ = ZUserRecord$
  2882.       RegDateHold$ = ZRegDate$
  2883.       UserSecLevelSave = ZUserSecLevel
  2884. * ------[ first line different ]------
  2885. Call Usred (EditFromRead,TempHashValue$,UserRecordHold$,RegDateHold$,UserSecLevelSave,WasTU) 
  2886.       If EditFromRead = 3 then _    'Pe 02/05/93
  2887.         EditFromRead = 0 : _        'Pe 02/05/93
  2888.          Goto 4560                  'Pe 02/05/93
  2889.       Return
  2890.  
  2891. * DELETING old line(s)
  2892. 11001
  2893. 11003
  2894. 11005
  2895. 11010
  2896. 11015
  2897. 11107
  2898. 11110
  2899. 11115
  2900. 11125
  2901. 11127
  2902. 11130
  2903. 11160
  2904. * DELETING old line(s)
  2905. 11190
  2906. 11220
  2907. 11290
  2908. 11310
  2909. 11311
  2910. 11320
  2911. 11325
  2912. 11330
  2913. 11340
  2914. 11341
  2915. 11342
  2916. 11345
  2917. 11380
  2918. 11390
  2919. 11395
  2920. 11400
  2921. 11420
  2922. 11423
  2923. 11450
  2924. 11455
  2925. 11490
  2926. * REPLACING old line(s) by new
  2927. 11520 CALL AskUsers
  2928.       IF NOT ZOK THEN _
  2929.          RETURN
  2930.       IF ZAdjustedSecurity THEN _
  2931.          GOSUB 12989 : _
  2932.          LSET ZSecLevel$ = MKI$(ZUserSecLevel) : _
  2933.          GOSUB 9440 : _
  2934.          GOSUB 12991 : _
  2935.          CALL SetPrompt : _
  2936.          CALL XferType (2,ZTrue) : _
  2937.          GOSUB 5135
  2938.       REDIM ZOutTxt$(ZMsgDim)
  2939.       IF ZSubParm = -1 THEN _
  2940.          RETURN 10595
  2941.       ZOK = ZTrue
  2942.       RETURN
  2943. * ------[ first line different ]------
  2944. * DELETING old line(s)
  2945. 12300
  2946. 12310
  2947. 12311
  2948. 12320
  2949. 12330
  2950. * REPLACING old line(s) by new
  2951. * ------[ first line different ]------
  2952. 12595    X = 45          'Pe 01/17/93
  2953.      Gosub 47000     'Pe 01/17/93
  2954.       CALL QuickTPut1 (OutTxt$)
  2955.       CALL UpdtCalr ("Name violation: "+ZActiveUserName$,1)
  2956.       GOTO 10621
  2957. '
  2958. ' *  COMMON SEARCH USER FILE ROUTINE
  2959. '
  2960. * REPLACING old line(s) by new
  2961. 12600 GOSUB 4910
  2962.       GOSUB 12988
  2963.       IF ZInConfMenu THEN _
  2964.          IF NOT ZPrivateDoor THEN _
  2965. * ------[ first line different ]------
  2966.    X = 46 : _         'Pe 01/17/93
  2967.      Gosub 47000 : _     'Pe 01/17/93
  2968.             CALL QuickTPut1 (OutTxt$)
  2969. * REPLACING old line(s) by new
  2970. 12605 CALL OpenUser (ZHighestUserRecord)
  2971.       GOSUB 9450
  2972.       CALL FindUser (TempHashValue$,TempIndivValue$,ZStartHash,ZLenHash,_
  2973.                      ZStartIndiv,ZLenIndiv,ZHighestUserRecord,Found,_
  2974.                      ZUserFileIndex,ZWasSL)
  2975.      IF Found THEN _
  2976.         RETURN
  2977.      IF CurUserCount < (ZHighestUserRecord-1)*.95 THEN _
  2978.         RETURN
  2979. * ------[ first line different ]------
  2980.   X = 254         'Pe 01/17/93
  2981.   Gosub 47000     'Pe 01/17/93
  2982.      ZOutTxt$ = OutTxt$ + ZConfName$
  2983.      CALL UpdtCalr (ZOutTxt$,2)
  2984.      IF ZActiveUserFile$ <> ZMainUserFile$ THEN _
  2985.         ZUserFileIndex = 0 : _
  2986.         RETURN
  2987.       IF ZRememberNewUsers AND NOT ZSurviveNoUserRoom THEN _
  2988.          GOSUB 1397
  2989.       ZUserFileIndex = 0
  2990.       IF ZSurviveNoUserRoom THEN _
  2991.          ZRememberNewUsers = ZFalse
  2992.       RETURN
  2993. '
  2994. ' *  AUGMENT USER COUNT, LOCK 4 REC BLOCK IN USER, UNLOCK FILES
  2995. '
  2996. * REPLACING old line(s) by new
  2997. * ------[ first line different ]------
  2998. 12800  X = 255         'Pe 01/17/93
  2999.       Gosub 47000     'Pe 01/17/93
  3000.      CALL NewPassword (OutTxt$,ZFalse)
  3001.       IF ZSubParm < 0 THEN _
  3002.          GOTO 202
  3003.       IF UserSecLevelSave < ZSysopSecLevel THEN _
  3004.          IF ZUserIn$ = SPACE$(LEN(ZUserIn$)) THEN _
  3005.             GOTO 12800
  3006.       LSET ZPswd$ = ZWasZ$
  3007.       RETURN
  3008. '
  3009. ' *  GET HASH VALUE FOR CURRENT USER TO LOOK UP IN THE USER'S FILE
  3010. '
  3011. * REPLACING old line(s) by new
  3012. 12932 CALL PopCmdStack
  3013.       GOTO 12997
  3014. '
  3015. * ------[ first line different ]------
  3016. ' *  GET CITY AND STATE FROM NEWUSER
  3017. '
  3018. * REPLACING old line(s) by new
  3019. 12960 ZOutTxt$ = WasA1$ + _
  3020.                  ZUserLocation$
  3021.       IF NOT ZNewUser THEN _
  3022.          ZOutTxt$ = ZOutTxt$ + ZPressEnter$
  3023.       ZParseOff = ZTrue
  3024.       GOSUB 12932
  3025.       IF ZWasQ = 0 OR ZUserIn$ = SPACE$(LEN(ZUserIn$)) THEN _
  3026.          IF ZNewUser THEN _
  3027.             GOTO 12960 _
  3028.          ELSE RETURN
  3029.       CALL AllCaps (ZUserIn$)
  3030.       CALL QuickTPut1 ("Set to "+ZUserIn$)
  3031.       LSET ZCityState$ = ZUserIn$
  3032.       ZWasCI$ = ZUserIn$
  3033.       RETURN
  3034. '
  3035. * ------[ first line different ]------
  3036. ' * STANDARD ENTRY FOR RBBS-PC'S COMMON TERMINAL OUTPUT ROUTINE
  3037. '
  3038. * DELETING old line(s)
  3039. 12962
  3040. 12963
  3041. 12965
  3042. 12966
  3043. 12967
  3044. 12968
  3045. 12969
  3046. 12970
  3047. 12971
  3048. 12972
  3049. * REPLACING old line(s) by new
  3050. * ------[ first line different ]------
  3051. 13545 IF ZLocalUser and ZSysop Then _
  3052.        goto 13549                          'Pe 12/01/91
  3053.       CALL UpdateC
  3054. * REPLACING old line(s) by new
  3055. 13549 GOSUB 13700
  3056. * ------[ first line different ]------
  3057.       CALL MenuPlus (5)                                           'MENU1748
  3058.       IF ZLocalUser OR _
  3059.          ZModemOffHook THEN _
  3060.          GOTO 13555
  3061.       IF NOT ZFossil THEN _
  3062.          OUT ZModemCntlReg,INP(ZModemCntlReg) AND 254 : _
  3063.          CALL DelayTime (ZDTRDropDelay) : _
  3064.          OUT ZModemCntlReg,INP(ZModemCntlReg) OR 1 : _
  3065.          GOTO 13553
  3066. * REPLACING old line(s) by new
  3067. 13555 ZActiveMessageFile$ = ZOrigMsgFile$
  3068.       GOSUB 12986
  3069.       GOSUB 5344
  3070.       GET 1,ZNodeRecIndex
  3071.       MID$(ZMsgRec$,57,1) = "I"
  3072.       MID$(ZMsgRec$,40,2) = " 0"
  3073.       MID$(ZMsgRec$,72,2) = " 0"
  3074.       IF MID$(ZMsgRec$,101,2) = ZCarriageReturn$+ZCarriageReturn$ THEN _
  3075.          MID$(ZMsgRec$,101,2) = " 0"
  3076.       PUT 1,ZNodeRecIndex
  3077.       GOSUB 12985
  3078.       CLOSE 1,2,4,5
  3079.       IF NOT ZFossil THEN _
  3080.          CLOSE 3
  3081.       IF ZRecycleToDos THEN _
  3082. * ------[ first line different ]------
  3083.       GOTO 204                    'Pe 06/26/92
  3084.       REDIM ZWorkAra$(60)                                          ' RM112201
  3085.       REDIM ZOutTxt$(99)                                        ' RM112201
  3086.       REDIM ZUserIn$(99)                                        ' RM112201
  3087.       RUN                                                            ' RM092301
  3088. * REPLACING old line(s) by new
  3089. 13600 CLS
  3090.       LOCATE ,,0
  3091.       CALL PScrn (ZWasDF$ + " file missing/invalid.  Run CONFIG")
  3092.       CALL DelayTime (3)
  3093. * ------[ first line different ]------
  3094.       GOTO 204                       'Pe 06/26/92
  3095. * REPLACING old line(s) by new
  3096. 20140 CALL GetArc
  3097.       IF ZSubParm = -1 THEN _
  3098. * ------[ first line different ]------
  3099.          GOTO 10595                  'PE 10/22/91
  3100.       IF ZDenyAccess THEN _
  3101.          GOTO 1386
  3102.       RETURN
  3103. '
  3104. ' * GO TO THE FILE SYSTEM TO LIST THE SYSOP'S COMMENTS
  3105. '
  3106. * REPLACING old line(s) by new
  3107. 20190 ZFileSysParm = 9
  3108. * ------[ first line different ]------
  3109.       GOTO 20200
  3110. '
  3111. ' * Go To the File System to Handle BATCH UPLOADS
  3112. '
  3113. * INSERTING new line(s)
  3114. 20195 ZFileSysParm = 10
  3115. '
  3116. * REPLACING old line(s) by new
  3117. 20200 CALL FileSystem
  3118. * ------[ first line different ]------
  3119.  IF ZDnldCompleted AND ZAutoEnd = 1 AND ZAutoLogoffReq THEN _ 'Pe 12/20/92
  3120.                           GOTO 20235                   'AUTO Loggoff Mod
  3121.            ON ZFileSysParm GOTO 20205, _
  3122.                                 20210, _
  3123.                                 20215, _
  3124.                                 20220, _
  3125.                                 20225, _
  3126.                                 20230, _
  3127.                                 20235
  3128. * REPLACING old line(s) by new
  3129. 23000 GET 1,1
  3130.       HighMsgNumber = VAL(LEFT$(ZMsgRec$,8))
  3131.       AutoAddSec   = CVI(MID$(ZMsgRec$,9,2))
  3132.       CallsToDate! = VAL(MID$(ZMsgRec$,11,10))
  3133.       ZMsgSecCats$ = LEFT$("U",-(MID$(ZMsgRec$,21,1) <> "/")) + _
  3134.                      LEFT$("R",-(MID$(ZMsgRec$,22,1) <> "/")) + _
  3135. * ------[ first line different ]------
  3136.                      LEFT$("P",-(MID$(ZMsgRec$,23,1) <> "/")) + "E"
  3137.       IF ZUserSecLevel >= ZSecKillAny THEN _
  3138.           ZMsgSecCats$ = "URPE"
  3139.       IF ZMsgSecCats$ = "E" THEN _
  3140.          ZMsgSecCats$ = "UE"
  3141.       CurUserCount = VAL(MID$(ZMsgRec$,57,5))
  3142.       FirstMsgRecord = VAL(MID$(ZMsgRec$,68,7))
  3143.       ZNextMsgRec = VAL(MID$(ZMsgRec$,75,7))
  3144.       HighestMsgRecord = VAL(MID$(ZMsgRec$,82,7))
  3145.       IF ZActiveMessageFile$ = ZOrigMsgFile$ THEN _
  3146.          ZMaxNodes = VAL(MID$(ZMsgRec$,127))
  3147.       RETURN
  3148. * REPLACING old line(s) by new
  3149. * ------[ first line different ]------
  3150. 30000 RETURN
  3151. '
  3152. ' * CALCULATE TIME REMAINING FOR USER
  3153. '
  3154. * DELETING old line(s)
  3155. 30100
  3156. 30200
  3157. * REPLACING old line(s) by new
  3158. * ------[ first line different ]------
  3159. 41070  X = 256         'Pe 01/17/93
  3160.         Gosub 47000     'Pe 01/17/93
  3161.        ZOutTxt$ = OutTxt$ + _
  3162.            STR$(ZUserSecLevel) + _
  3163.            MID$(" (SYSOP)",1,-8 * (ZUserSecLevel >= ZSysopSecLevel))
  3164.       GOSUB 12975
  3165.       RETURN
  3166. '
  3167. ' * NULLS SET FOR NEW USERS
  3168. '
  3169. * REPLACING old line(s) by new
  3170. 42700 CALL SkipLine (1)
  3171. * ------[ first line different ]------
  3172.       'CALL QuickTPut1 ("TurboKey: act on 1 char command without waiting for [ENTER]")
  3173.       'ZOutTxt$ = "Want TurboKeys (Y,[N])"
  3174.       'GOSUB 12999
  3175.       ZTurboKeyUser = NOT ZYes
  3176.       CALL Toggle (8)        'Pe 05/04/92
  3177.       RETURN
  3178. '
  3179. ' *  F - COMMAND FROM UTILITY MENU (FILE Transfer DEFALUT MODE)
  3180. ' *  FILE Transfer DEFAULT SET FOR NEW USERS
  3181. '
  3182. * REPLACING old line(s) by new
  3183. * ------[ first line different ]------
  3184. 42851  X = 257         'Pe 01/17/93
  3185.        Gosub 47000     'Pe 01/17/93
  3186.        ZOutTxt$ = OutTxt$ + _
  3187.            MID$(", I)ntermediate host",1,-20 * (ZHostEchoOn$ <> "")) + _
  3188.            ZPressEnterExpert$
  3189.       GOSUB 12930
  3190.       IF ZWasQ = 0 THEN _
  3191.          RETURN
  3192. * REPLACING old line(s) by new
  3193. * ------[ first line different ]------
  3194. 43000 ZPrevPUI$ = ""    'ANSIEd
  3195.       GOSUB 43005
  3196.       GOTO 43022
  3197. * REPLACING old line(s) by new
  3198. * ------[ first line different ]------
  3199. 43020  X = 258         'Pe 01/17/93
  3200.   Gosub 47000     'Pe 01/17/93
  3201.         ZOutTxt$ = OutTxt$ + _
  3202.            MID$("None AsciiColor",ZWasGR * 5 + 1,5)
  3203.       GOSUB 12979
  3204.       RETURN
  3205. * REPLACING old line(s) by new
  3206. * ------[ first line different ]------
  3207. 43022 ZPrevPUI$ = ""                   'ANSIEd
  3208.       IF ZEmphasizeOnDef$ = "" THEN _
  3209.          RETURN
  3210.          X = 259         'Pe 01/17/93
  3211.          Gosub 47000     'Pe 01/17/93
  3212.              ZOutTxt$ = OutTxt$
  3213.       IF ZWasGR = 2 THEN _                'SM091912
  3214.          ZOutTxt$ = ZOutTxt$ + "[Y],N)" _        'SM091912
  3215.       ELSE _                        'SM091912
  3216.          ZOutTxt$ = ZOutTxt$ + "Y,[N])"            'SM091912
  3217.       GOSUB 12999
  3218.       IF ZWasGR <> 2 THEN _                'SM091912
  3219.          ZHiLiteOff = ZYes _                'SM091912
  3220.       ELSE _                        'SM091912
  3221.          ZHiLiteOff = NOT ZNo                'SM091912
  3222.       CALL Toggle(5)
  3223.       RETURN
  3224. * REPLACING old line(s) by new
  3225. 45010 ZHidden = ZTrue
  3226.       GOSUB 12995
  3227.       ZHidden = ZFalse
  3228.       RETURN
  3229. * ------[ first line different ]------
  3230. '                                                                    ' RM122201
  3231. ' * REDIM ARRAYS FOR INTERNAL RECYCLE DUE TO ANSI EDITOR             ' RM122201
  3232. '                                                                    ' RM122201
  3233. * INSERTING new line(s)
  3234. 45020 WasJ = 60                                                      ' RM112201
  3235.       'ZMsgDim = 99                                                   ' RM112201
  3236.        ZMsgDim = 199  'Pe021893
  3237.       REDIM ZWorkAra$(WasJ)                                          ' RM112201
  3238.       REDIM ZOutTxt$(ZMsgDim)                                        ' RM112201
  3239.       REDIM ZUserIn$(ZMsgDim)                                        ' RM112201
  3240.       RETURN                                                         ' RM112201
  3241. '
  3242. '  * Maple AutoLogoff Routines ***
  3243. '
  3244. 46000 ZSubParm = 1
  3245.       If ZAutoLogoffReq = ZFalse Then _
  3246.        ZAutoEnd = 3 : _
  3247.         Return 1205
  3248.   X = 260         'Pe 01/17/93
  3249.   Gosub 47000     'Pe 01/17/93
  3250. ZOutTxt$ = OutTxt$
  3251.           ZTurboKey = 2
  3252.       Call TGet
  3253.        IF ZUserIn$ = "G" or ZUserIn$ = "g" THEN _
  3254.           Goto 46050
  3255.            IF ZWasQ = 0  THEN _
  3256.              X = 261 : _         'Pe 01/17/93
  3257.              Gosub 47000 : _     'Pe 01/17/93
  3258.             CALL QuickTPut1(OutTxt$) : _
  3259.             ZAutoLogoffReq = ZFalse : _
  3260.            ZAutoEnd = 3 : _
  3261.         RETURN 1205
  3262. 46050 GetOut = ZTrue
  3263.       RETURN 10597
  3264. 47000 Call GetRBBSString(X,RBBSString$)     'Pe 02/02/93
  3265.       OutTxt$ = RBBSString$                 'Pe 02/02/93 
  3266.       RETURN
  3267.